asdasd

st_wiel(X,X,1).
st_wiel(C,_,0):-number(C).

st_wiel(-W,X,N):-st_wiel(W,X,N).
st_wiel(W1+W2,X,N):-st_wiel(W1,X,N1),
    st_wiel(W2,X,N2),
    N is max(N1,N2).
st_wiel(W1*W2,X,N):-st_wiel(W1,X,N1),
    st_wiel(W2,X,N2),
    N is N1+N2.
st_wiel(W^M,X,N):-integer(M),
    M>1,
    st_wiel(W,X,M1),
    N is M1*M.