module Main where

bar = do
  foo :: String <- baz