#lang plait
(define (msg0 obj selector) (obj selector))

(define (node v l r)
  (lambda (m)
    (case m
      [(sum)  (+ (msg0 l 'sum) (msg0 r 'sum))])))