#! perl -nlw
if(($func,$args)=/^> (\w+)\((.)/){
    if($cfunc){
        die unless $cfunc=$func;
    }
    $cfunc=$func;
    push @arglist,$args;
} else {
    if ($_ eq ''){
        $q=$nq=0;
        for(@arglist){
            if($_ eq '"'){
                $q++;
            }else{
                $nq++;
            }}
        if($q==0){
            $_='n';
        } elsif ($nq==0){
            $_='s0';
        } else {
            die "$cfunc $q $nq";
        }
        print "$cfunc $_";
    } elsif ($_ eq 's1'){
        print "$cfunc s1";
    }
    undef $cfunc;
    undef @arglist;
}