(ns nuconta-hacks
  (:require [schema.core :as s]))

(s/defschema CoolShit
  {:cool s/Any})

(s/defn coolify
  [thing :- s/Any]
  {:cool thing})

(defn hack
  [hackable]
  (:idea hackable))

(defn a-ton
  [thing]
  (repeat 50 thing))

(s/defn lots-of-cool-things :- [CoolShit]
  [idea]
  (->> idea
       hack
       a-ton
       (map coolify)))