{-# Language PatternGuards #-}
import Control.Monad