> > -fno-state-hack? > > That, or > {-# LANGUAGE BangPatterns #-} > ... > !pole <- liftM (build n . map read . words) getLine Works for me, thanks! Petr