muDecimal str       = decode (reads str)
  where
    decode [(n, "")]  = MuNumber n
    decode [(n, ".")] = MuNumber n
    decode [(n, s)]   = other ("JSDecimal:" ++ s) (MuNumber n)
    decode _          = debug ("JSDecimal:" ++ str)
muDecimal str       = decode (reads str)
  where
    decode [(n, "")]  = MuNumber n
    decode [(n, ".")] = MuNumber n
    decode [(n, s)]   = other ("JSDecimal:" ++ s) (MuNumber n)
    decode _          = debug ("JSDecimal:" ++ str)
muDecimal str       = decode (reads str)
  where
    decode [(n, "")]  = MuNumber n
    decode [(n, ".")] = MuNumber n
    decode [(n, s)]   = other ("JSDecimal:" ++ s) (MuNumber n)
    decode _          = debug ("JSDecimal:" ++ str)