(use srfi-1)(while(string-split(read-line)" ")=> l(print(guard''""(let*(`car,length(F"Fizz")(p`(sort-by(map(^i(cons(apply +(take(drop(#0=circular-list 2 1 3 1 2 3 3)i)(-,l 1)))(~'(3 5 6 9 10 12 15)i)))(filter(^i(equal?(take(drop(#0#F"Buzz"F F"Buzz"F"FizzBuzz")i),l)l))(iota 7)))car))'cdr)#`",'p ,(+'p`p)"))))
Note that non-ascii characters in the above source code will be escaped (such as \x9f).