4 module Life2 (life2) where
8 life2 itLimit boardSize
9 = (fBStr firstBoard) ++ (fBStr secondBoard)
20 firstBoard = copy_FI boardSize (case 0 of
24 {- not happy about this -}
26 firstBoard = copy_FI boardSize u0
28 unBoxInt (MkInt x) = x
29 {- end of not happy -}
31 {- not happy with this either! -}
33 secondBoard = copy_FI boardSize u1
36 {- end of second not happy -}