2 From: Kubiak Ryszard <fozzie>
4 Subject: You may test the new pretty-printer on the following text:
5 Date: Wed, 2 Oct 91 18:06:05 BST
8 data LList alpha = Nill | Conss alpha (LList alpha)
10 append :: LList a -> LList a -> LList a
11 append xs ys = case xs of
13 (Conss z zs) -> Conss z (append zs ys)