function out = rshift(in)
    out = zeros(length(in),1);
    for i = 2:length(in)
        out(i) = in(i - 1);
    end
