[project @ 1997-05-26 05:48:07 by sof]
[ghc-hetmet.git] / ghc / compiler / tests / stranal / test.lhs
1 > module Test where
2 > data LList t = Nill | Conss t (LList t)
3 > data BBool = TTrue | FFalse
4
5 > f Nill = TTrue
6 > f (Conss a as) = FFalse