ety-0.1: src/Main.hs

import Language.English.EtymologyOnline

main :: IO ()
main = do
  (title,entry) <- getRandomEntry
  putStrLn title
  putStrLn entry