--
module Main where import SOE import Shape import Region import Fal import Draw import Animation prob1:: IO() prob1 = undefined prob2:: IO() prob2 = undefined prob3:: IO() prob3 = undefined prob4:: IO() prob4 = undefined main = do { putStrLn "Enter an integer to choose a demo." ; n <- readLn ; [prob1, prob2, prob3, prob4 ] !! n } --