$use StdIO;

$func F s = s;
F s1 = s1;

$func Main = e;
Main =
  <WriteLn A { B; } C>,
  <WriteLn A { B <F 1>; } C>,
  <WriteLn A { <F 1> <F 2>; } C>,
  <WriteLn A ({ <F 1>; }) ({ <F 2>; }) C>;