def (f a b)
  (a ++ b)

def (add a b)
  (a + b)

def (catstrs strs)
  (foldr f
         (head strs)
         (tail strs))

def strs ["aa", "bb"]

def (mymap f xs)
  if ((length xs) == 0)
    then
      xs
  else
    ((f (head xs))
     : (mymap f (tail xs)))

def empty []

def getFile
  (readFile "./parse.js")

def (testUnary n)
  ((-n) + n)

def main
  ((print (testUnary 6)) >>
  if False
    then
      undefined
    else getFile)