$use Box StdIO;

$func Put! s.box expr = s.box;

Put! s.box expr = s.box <Put s.box expr>;

Main = <PrintLN <? <Put! <Box 'e^{i\\pi}'> ' = -1'>>>;