1foo :: a -> (a, a)
2foo a = [wingman| split; assumption |]
3