Added Single Invintory System Circular Array haskell project