"m1" and "m2" are the mark identifiers -- small integers -- you want something like (+ (mark-sample m2) (- (mark-sample m2) (mark-sample m1)) and so on.