(def mappend (f . args)
      (apply + nil (apply map f args)))

    (def maps (fn . args)
      (apply join (apply map fn args)))