procedure main()

    s := "By the rude bridge that arched the flood."
    s ? {

	every i := upto(&digits ** 'abcdef') do {
	    s2 := tab(i)
	    write("S: ", &subject)
	    write(repl("-",&pos+2), "^")
	    write("(s2 is ", image(s2), ")")
	}
    }
    frog := open("myoutput.txt", "w")
    write(frog, "stuff")
    close(frog)
end