$use Access StdIO;

$func Main = e;

Main =
  {
    <PrintLn <Left 0 0 'abc'>>,
      <PrintLn <Left 2 3 'abcdef'>>,
      <PrintLn <Left 2 3 ''>>;
    <PrintLn 'Branch 1 failed'>;
  };