module Arr: sig end
sig end
Th.arr
module Infsys: sig end
Funarr
module Ops: Can.OPS
Can.OPS
u = x * y