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