$use StdIO;

$use "mutual1";

$const A2 = &B1;

Print2 = <WriteLn &A2>;