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