$use StdIO;

$func Main = e;
Main, {
  A B : e1 e2,
    { <PrintLn e1>, C; } :: e1,
    $fail;;
};