[project @ 1996-01-11 14:21:31 by partain]
[nofib.git] / GHC_ONLY / bugs / cvh_unboxing / Main.lhs
1 \begin{code}
2 import Types
3 import Append
4
5 main resps 
6  = [AppendChan stdout (show (append_FC_L_L (FC2 a_ a_) []))]
7    where a_ = case 'a' of { C# x -> x }
8 \end{code}