-- Unboxed tuples in data constructor arguments need to be
-- handled correctly by GHC.Runtime.Heap.Inspect

:set -XUnboxedTuples -fobject-code
:l Unboxed
:p o1
:p o2
o1 `seq` ()
o2 `seq` ()
:p o1
:p o2