main = startGUI $ proc -> do
	t0 <- guiSF (now ()) -< ()
	(s, lay1) <- textEntry -< t0 `confTag` etext "Quit"
	(quit, lay2) <- button -< btext s
	rec
		(ping, lay3) <- button -< btext (show n)
		n <- guiSF eventCount -< ping
	let layout = column 5 [lay1 , lay2 , lay3 , lay3]
	quitter -< quit
	frame -< (ftext "Example A", noEvent, layout)
	frame -< (ftext "Example B", noEvent, layout)
	returnA -< ()