-- arith3broken.hs
module Arith3Broken where

import Prelude
import Control.Monad.Eff (Eff)
import Control.Monad.Eff.Console (CONSOLE, log)

main :: forall e. Eff (console :: CONSOLE | e) Unit
main = do
    log $ show (1 + 5)
    log "10"
    log $ show (negate $ -1)
    log $ show ((+) 0 blah)
        where blah = negate 1