$use Convert;
$use StdIO;

Main =
  {
    <PrintLN <To-Int 'John'>>;
    <PrintLN 'fail'>;
  };