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