$use StdIO;

$use "mutual2";

$const A1 = &B2;

$func Print1 = ;

Print1 = <WriteLn &A1>;

$func Main = e;
Main =
  <Print1>,
  <Print2>;