4.3BSD/usr/contrib/icon/book/04/inset2.icn

procedure inset()
   chars := ''
   while chars ++:= read()
   return chars
end