$use StdIO;
$func Main = e;
Main =
	'$use StdIO;\n$func Main = e;\nMain =\n\t' :: e1,
	' :: e2,\n\t<Print e1> <Write e1> <Print \' :: e1,\\n\\t\'> <Write e2> <PrintLn e2>;' :: e2,
	<Print e1> <Write e1> <Print ' :: e1,\n\t'> <Write e2> <PrintLn e2>;