Functions

for/fold

(for/fold ([curr-max 0])
          ([h (map height e*)])
  (max curr-max h))