(define get-var-em-size (lambda (var) (if (or (null? var) (eqv? var #f)) 1 (if (= (string-length (caddr var)) 3) 0 1))))