sig val colours : (string * int) list end