[Haskell-cafe] hugs segmentation fault