((output ())
 (warnings
  ( "File \"f.ml\", line 1, characters 0-1:\
   \nStray '\\r' (carriage return character).")))
