PROC P ()
  VAL []BYTE s IS "***c*n*t*s*X*#00*#A0\now":
  VAL []BYTE ss IS "'":
  VAL []BYTE ssx IS "*'":
  VAL []BYTE sss IS "foo**":
  VAL BYTE c IS 'x':
  VAL BYTE cc IS '"':
  VAL BYTE ccx IS '*"':
  VAL BYTE ccc IS '*'':
  VAL []BYTE mls IS "first*
                    *second*
                    *third":
  VAL [5][5]BYTE square IS ["sator", "arepo", "tenat", "opera", "rotas"]:
  SKIP
: