let signal_mem s = signal_delay s (1, (fun t -> N 1))