source: to-imperative/trunk/samples/Access/right.rf @ 587

$use Access StdIO;

Main =
  {
    <PrintLN <Right 0 0 'abc'>>, <PrintLN <Right 2 3 'abcdef'>>, <PrintLN <Right 2 3 'abcd'>>;
    <PrintLN "Branch 1 failed">;
  };