stdLib :: Environment
stdLib = [M.fromList lib]
  where
    lib = []
       |> (define "+" naiveAdd)
       |> (define "-" naiveSub)
       |> (define "*" naiveMul)
       |> (define "/" naiveDiv)
       |> (define "or" naiveOr)
       |> (define "and" naiveAnd)
stdLib :: Environment
stdLib = [M.fromList lib]
  where
    lib = []
       |> (define "+" naiveAdd)
       |> (define "-" naiveSub)
       |> (define "*" naiveMul)
       |> (define "/" naiveDiv)
       |> (define "or" naiveOr)
       |> (define "and" naiveAnd)
stdLib = [M.fromList lib]
  where
    lib = []
       |> (define "+" naiveAdd)
       |> (define "-" naiveSub)
       |> (define "*" naiveMul)
       |> (define "/" naiveDiv)
       |> (define "or" naiveOr)
       |> (define "and" naiveAnd)