data Thunk a = /* forall s. */ Thunk s (s -> a)

mixThunks (Thunk s0 f0) (Thunk s1 f1) = f0 s1

main = "Not to be executed!"
--
3:44-3:46: Expected <a> got <b>.