Function: byte-optimize-while



(fn FORM)