paf31

let isEven :: Number -> Boolean
    isEven 0 = false
    isEven 1 = false
    isEven 2 = true
    isEven n = isEven(n-1)

paf31

module Main where

  import Prelude
  import Parsing
  import Either

  foreign import data JSON :: *

  foreign import toJSON "function toJSON (obj) { return obj; }" :: forall a. a -> JSON
  foreign import showJSON "function showJSON (obj) { return JSON.stringify(obj); }" :: JSON -> String