$use StdIO "qcall2";

F = <PrintLn "qcall1.F  OK">;

$func Main = e;
Main = <"qcall2.F">;