wizard.clj

;; import Data.Monoid ((<>))

;; prompt :: String -> IO (IO ())
;; prompt attribute = do
;;     putStrLn ("What is your " ++ attribute ++ "?")
;;     x <- getLine
;;     return (putStrLn ("Your " ++ attribute ++ " is: " ++ x))

;; runWizard :: IO (IO a) -> IO a
;; runWizard request = do
;;     respond <- request
;;     respond

;; main :: IO ()
;; main = runWizard (foldMap prompt [ "name", "age", "favorite color", "sign" ])


(defn prompt [attr]
  (println (str "What is your " attr "?"))
  (let [v (read-line)]
    (fn [] (println (str "Your " attr " is " v)))))

(defn run-wizards [wzs]
  (doseq [w wzs]
    (w)))

(run-wizards (map prompt ["name" "age" "favourite-color" "sign"]))