PLN

transforma(eu, _, o).
transforma(tu, ar, as).
transforma(nós, ar, amos).
transforma(ele, ar, a).
transforma(vós, ar, ais).
transforma(eles, ar, am).

transforma(tu, er, es).
transforma(ele, er, e).
transforma(vós,er, eis).
transforma(nós,er, emos).
transforma(eles,er, em).

transforma(tu, ir, es).
transforma(ele, ir, e).
transforma(vós, ir, is).
transforma(nós, ir, imos).
transforma(eles, ir, em).

flexionar(Tempo,Verbo, X):-
        sub_string(Verbo,_, 2,0,Sufixo),
        sub_string(Verbo,0, _,2,Prefixo),
        atom_concat("", Sufixo, Suf),
        transforma(Tempo, Suf,R),
        atom_concat(Prefixo, R, X).