module HW11_1 where
-- David Lightman <whizkid1>

import Text.Read

-- Bug user incessantly for a number in the right range
--
readNum :: Int -> Int -> IO Int
readNum low high =