4.3BSD/usr/contrib/icon/book/f/space.icn

procedure space(s)
   local s1
   s1 := ""
   s ? while s1 ||:= move(1) || " "
   return s1
end