[project @ 1996-01-08 20:28:12 by partain]
[ghc-hetmet.git] / ghc / compiler / tests / stranal / test.lhs
1 > data LList t = Nill | Conss t (LList t)
2 > data BBool = TTrue | FFalse
3
4 > f Nill = TTrue
5 > f (Conss a as) = FFalse