(ecase major-length
  (4800 18)
  (8552 (ecase var
          (4 33)
          (1 18))))