The sample program of "Parsec3" and "gtk2hs"