module SimpleArray where

root  = class
            a := uniarray 10 True

            result action
                   a!1 := False