MicroHs-0.10.5.0: tests/Default.hs

module Default(main) where
import Prelude
default Num (Int, Double)
default IsString (String)
default Show (())

main :: IO ()
main = do
  print 1
  print 1.5
  print []
  print "foo"