-- stg_ap_rep exception after using :print with newtypes

:set -XExistentialQuantification -XDeriveDataTypeable -XGeneralizedNewtypeDeriving
:l Test

let a = MkT (1 :: Integer)
seq a ()
:p a
a