;; where em is the match expression (i.e. with variables etc..) (define get-em-length (lambda (ems var) (apply + (map get-var-em-size ems))))