Array initialization
Haskell recurive