compileLit :: Literal -> Compile Expression
compileLit lit = return $
  case lit of
    MachInt i           -> Integer (fromIntegral i)
    MachDouble (n :% d) -> Double (fromIntegral n/fromIntegral d)
    MachFloat (n :% d)  -> Double (fromIntegral n/fromIntegral d)
    MachChar c          -> String [c]
    MachStr s           -> String (unpackFS s)
compileLit :: Literal -> Compile Expression
compileLit lit = return $
  case lit of
    MachInt i           -> Integer (fromIntegral i)
    MachDouble (n :% d) -> Double (fromIntegral n/fromIntegral d)
    MachFloat (n :% d)  -> Double (fromIntegral n/fromIntegral d)
    MachChar c          -> String [c]
    MachStr s           -> String (unpackFS s)
compileLit lit = return $
  case lit of
    MachInt i           -> Integer (fromIntegral i)
    MachDouble (n :% d) -> Double (fromIntegral n/fromIntegral d)
    MachFloat (n :% d)  -> Double (fromIntegral n/fromIntegral d)
    MachChar c          -> String [c]
    MachStr s           -> String (unpackFS s)