Plan 9 from Bell Labs’s /usr/web/sources/contrib/fernan/nhc98/src/prelude/Prelude/Seq.hs
module Prelude(seq) where infixr 0 `seq` seq :: a -> b -> b seq a b = _seq a b -- MAGIC (converted to a single bytecode)
