while (<STDIN>)  {
    next if (substr($_,0,1) eq ";") ;
    print ;
    chop ;
    print "pprint \"$_\"\n" ;
    print "pcall show_flags\n" ;
}