:: In a b = In infix 0 a b
class sds v where
  sds :: ((v t Upd)->In t (Main (v c s))) -> (Main (v c s)) | ...
  pub :: (v t Upd) -> v t Expr | type t