fun2 = let fooThen m = foo>> m
       in fooThen (do {bar; undefined})
fun2 = let fooThen m = foo>> m
       in fooThen (do {bar; undefined})
fun2 = let fooThen m = foo>> m
       in fooThen (do {bar; undefined})