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