import Data.Array

doit n m = a!(0,0) where a = array ((0,0),(n,m)) [((0,0),42)]