$use StdIO "qcall1";

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