Prelude> sequence [print 'a', print 2]
'a'
2
[(),()]
Prelude> let myprint = print
Prelude> sequence [myprint 'a', myprint 2]

<interactive>:1:18:
    Couldn't match expected type `()' against inferred type `Char'
    In the first argument of `myprint', namely 'a'
    In the expression: myprint 'a'
    In the first argument of `sequence', namely
        `[myprint 'a', myprint 2]'