Bostjan Slivnik's example crashes ghci

[Marcin 'Qrczak' Kowalczyk]

------------------------------------------------------------------------
module Test where

data Foo = Foo Int [Foo]
instance Show Foo where showsPrec _ (Foo f _) = shows f

lstOfFoos = [Foo f lstOfFoos | f <- [2..5]]
foo = head lstOfFoos
------------------------------------------------------------------------

Entering foo at the ghci prompt causes segmentation fault. It works
when compiled as a standalone program (and supplied with Main.main).

-- 
 __("<  Marcin Kowalczyk * qrczak@knm.org.pl http://qrczak.ids.net.pl/
 \__/
  ^^                      SYGNATURA ZASTĘPCZA
QRCZAK