let signal_prefix = fun s0 -> fun s1 ->
let new_signal = fun t ->
if t = 0 then (signal_fun s0) 0
else if t > 0 then (signal_fun s1) t
else raise (Signal_operation "prefix time cannot be < 0.")
in
(frequency s1, new_signal)