use ToolBox;
    use Data::Dumper;

    # a convenience function for examining our output
  
    sub say(@) {
        local $Data::Dumper::Terse = 1;
        local $Data::Dumper::Indent = 0;
        my @d = map Dumper($_), @_;
        print "@d$/";
    }