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

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