!import "../lib/base.tri" !Local
!import "../lib/list.tri" !Local

main = size size

size = x : y (self x : compose succ (triage
  id
  self
  (x y : compose (self x) (self y))
  x)
) x 0