few([],[]) -> [];
few(Xs,Ys)->
    if
    hd(Xs) == hd(Ys) ->
        find(tl(Xs),tl(Ys));
        hd(Xs) /= hd(Ys) ->
        {Hs,Ts}=split(Xs,hd(Ys)),
        State = append(Ts,Hs),
        [{one,length(Ts)+1},{two,length(Hs)},{one,-(length(Ts)+1)},{two,-length(Hs)}|find(State,tl(Ys))]
    end.