(use srfi-42)(do-ec(: a 3 10)(: b 1 3)(: c 3 10)(: e 3(-(* b 6)2))(: f 3 6)(: g 3 10)(: h 3 6)(: i 3 10)(if(apply <(sort #0=`(0,a,b,c,(- 3 b),e,f,g,h,i)))(apply print #0#)))
Note that non-ascii characters in the above source code will be escaped (such as \x9f).