Done 🙂   (gen-divide 3 '(q -q -e e e e q q -s s s s)) => ((1/4 -1/4 -1/8) (1/8 1/8 1/8) (1/4 1/4 -1/16) (1/16 1/16 1/16)) (gen-divide 3 '(q -q -e -e -e e q q -s s s s) :omit-rest t) => ((1/4 -1/4 -1/8 -1/8 -1/8 1/8 1/4) (1/4 -1/16 1/16 1/16) (1/16)) (gen-divide 3 '(q -q -e -e -e e q q -s s s s) :omit-rest t :omn t) => ((q - -e - - = q) (q -s = =) (s)) (gen-divide 3 '(q c4 -q -e d4 e e4 e f4 e g4 q a4 q b4 -s s c5 d5 e5)) => ((q c4 mf - -e) (e d4 mf e4 f4) (e g4 mf q a4 b4) (