module Text_graph: Text_graph
label1 3786 |----+----1----+----2---- ... ----+----7----+----8----+----9----+----|
label2 3653 |----+----1----+----2---- ... ----+----7----+----8----+----9----+-
label3 1055 |----+----1----+----2----+--
label4 308 |----+---
label5 70 |-
label6 404 |----+----1
label7 71 |-
label8 32 |
(each '-' is approximately 37.860 units.)
val render : (string * float) list -> string