g = \ f -> parseFile f >>= (\ cu -> return (f, cu))