$use StdIO;

$func Main = e;

Main =
  A A A : s s s e1,
  <PrintLn (e1)>;