procedure main()
   locate("fancy")
end

procedure locate(s)
   lineno := 0
   while line := read() do
    { lineno +:= 1
       if find(s, line) then write( lineno, ": ", line )
    }
end

# From  The Icon Programming Language  1st Edn., Ch 1, sec 1.4, p 6