isNumber c =
  let ascii = (ord c)
   in ascii >= (ord '0') && ascii <= (ord '9')
isNumber c =
  let ascii = (ord c)
   in ascii >= (ord '0') && ascii <= (ord '9')
isNumber c =
  let ascii = (ord c)
   in ascii >= (ord '0') && ascii <= (ord '9')