let delay_of_length = function | Immediate -> 1.0 | Short -> 60.0 | Long -> 600.0 | Huge -> 1800.0 | Custom_length f -> f