// Program to fetch stock prices. Try the stocktest.frink program for an // interactive version. stock[symbol] := { url = "http://finance.yahoo.com/q?s=" + symbol file = read[url] if [price] = ( file =~ %r/Last Trade.*?(\d+\.\d+)<\/span>/si ) return eval[price + " USD"] else return undef }