preTp.hs