Mode to prepare a tea -}
prepare :: TeafreeMode
prepare = Prepare
    &= help "Ask to chose a tea and time it."

{-
prepare :: TeafreeMode
prepare = Prepare
    &= help "Ask to chose a tea and time it."
prepare = Prepare
    &= help "Ask to chose a tea and time it."