sub pp {
    die "bad number of args to pp" unless @_==1;
    return Data::Dumper->new([shift])->Terse(1)->Purity(1)->Useqq(1)
        ->Quotekeys(0)->Sortkeys(1)->Indent(0)->Pair('=>')->Dump;
}