print "tst_suite/tst-new-cmd.gre ...";
cmd call me ($) { # $a
        $x = 2 * $_[0];
}
call me 1+1;
die " failed\n" if ($x != 4);
print " passed\n";