-- test for unboxed fields in datatypes
:l print022.hs
seq test ()
:print test
:break f
f test2
:fo x
:t x