Sophie
var1 i,j,k; ((j>k => i=0) & (j<=k => ((j>0 => i=j-1) & ((j=0 & k>0) => i=k-1) & ((j=0 & k=0) => i=0)))) <=> i=j-1%k;