Select Code to Download

    my ::MySig ::= :(Int, Num, Complex, Status :mice);
    :(Num Dog|Cat $numdog, MySig \$a ($i,$j,$k,$mousestatus));

@x[f()]   =  g();       # list context for f() and g()
@x[f()]   = +g();       # list context for f(), scalar context for g()
@x[+f()]  =  g();       # scalar context for f() and g()