$use StdIO;

$func TestR e = e;

TestR $r (e1 '.' e2) = e1;

$func Main = e;
Main = <PrintLn <TestR ('A.B.C')>>;