Function: byte-optimize-while

(fn FORM)