RosettaCodeData/Task/Create-a-two-dimensional-array-at-runtime/Haskell/create-a-two-dimensional-array-at-runtime.hs

import Data.Array

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