$use StdIO Class;

Main = { <Word? "ABC">;
         <PrintLN 'fail'>;
       },
   
       { <Word? 23>;
         <PrintLN 'fail: argument is not of type word'>;
       },
       { <Word? "abc" "abc">;
         <PrintLN 'fail: argument is more than one expression'>;
       };