shrub/pkg/hs-vere/app/uterm/Main.hs

module Main where

import ClassyPrelude
import Control.Lens
import Data.Noun.Pill hiding (main)

--------------------------------------------------------------------------------

main :: IO ()
main = do
  print "load brass" >> void getLine
  tryLoadPill Brass

  print "load ivory" >> void getLine
  tryLoadPill Ivory

  print "load solid" >> void getLine
  tryLoadPill Solid

  print "cue brass" >> void getLine
  tryCuePill Brass

  print "cue ivory" >> void getLine
  tryCuePill Ivory

  print "cue solid" >> void getLine
  tryCuePill Solid