module Foo where

foo = [ ()
      | () <- foo
      | () <- foo
      ]