# foldr above was a mistake

# foldl

  state = LightOff
  while data {
    input = get_next(data)
    state = f(state, input)
  }