-- ==========================================================--
--
leFail l n m
  = faiL ("Lexical error, line " ++ show l ++ ", col " ++ show n ++ 
          ":\n   " ++ m )
leFail l n m
  = faiL ("Lexical error, line " ++ show l ++ ", col " ++ show n ++ 
          ":\n   " ++ m )
leFail l n m
  = faiL ("Lexical error, line " ++ show l ++ ", col " ++ show n ++ 
          ":\n   " ++ m )