// a point in a ticker sequence srecord noeq TickerPoint(TickerSequence ticker, long currentTime) { real currentPrice() { ret lookback(0); } Real lookback(real time) { ret ticker.priceAtTimestamp(currentTime-time); } }