4.3BSD/usr/contrib/icon/test/dismem.icn

procedure main()
   while line := read() do
      line ? (
         tab(find("\",image(") + 8) &
         write(tab(find(") | \"none")))
         )
end