Create SmartArray.hs