main = do
  case foo of
    Something -> do
      x
>
    Else -> x
>
    Bar -> x