{-# htermination index :: ((),()) -> () -> Int #-}