$use Dos StdIO;

Main =
  $trap <WriteLN <Arg -1>> $with {
    e1 =
      <WriteLN e1>,
      <WriteLN <Arg 0> <Arg 1> <Arg 2> <Arg 3>>;
  };