$use Convert StdIO;

Main =
  {
    <PrintLN <To-Int "\t5">>;
    <PrintLN 'HT is not allowed in the word!'>;
  },
  {
    <PrintLN <To-Int  '\t7  '>>;
    <PrintLN 'HT cannot go before or after all digits'>;
  },
  {
    <PrintLN <To-Int  '\n5'>>;
    <PrintLN 'NL symbol canot go before or after all digits'>;
  },
  {
    <PrintLN <To-Int  " \b5 ">>;
    <PrintLN 'BS is not allowed in the word!'>;
  },
  {
    <PrintLN <To-Int  "5 \f">>;
    <PrintLN 'FF is not allowed in the word!'>;
  },
  {
    <PrintLN <To-Int  "5 \r">>;
    <PrintLN 'CR is not allowed in the word!'>;
  },
  {
    <PrintLN <To-Int  "5 \v">>;
    <PrintLN 'VT is not allowed in the word!'>;
  },
  {
    <PrintLN <To-Int 5 '7 7'>>;
    <PrintLN 'So, spaces can go before or after all digits,\n'
      'but aren\'t allowed in the middle of integer print representation.'>;
  };