$use StdIO Apply;

$func F e = e;

F e1 = <PrintLN 'Hello, ' e1 '!'>;

Main = &F :: s1, <Apply s1 'world'>;