infix 3 #

data T : Type where
  (#) : T -> T -> T
  leaf : T