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

28 lines
544 B
Haskell

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