$use Convert;
$use StdIO;

Main = <PrintLN <To-Upper 'abcd'>>;