I wonder why life/10.8 runs nonsensically on my PC even with Language.Haskell.HsColour.ANSI import?
These cls and goto reappear in 11.7 that spoil the pleasure of understanding.
Also putGrid/11.4 is unintuitive backsword engineering concoction that teaches nothing, while it can be very intuitively written: putGrid g =
interleave :: a->[a]->[a]
interleave x [] = []
interleave x [y] = [y]
interleave x (y:ys)= y:x:interleave x ys
weave :: a->[a]->[a]
weave x [] = [x]
weave x [y] = x:[y,x]
weave x (y:ys)= x:y:weave x ys

Prelude> putGrid [[' ','O','O'],['O','X','O'],['X','X','X']]
 | |
 |O|O
 | |
------
 | |
O|X|O
 | |
------
 | |
X|X|X
 | |