strf2f(S,V2f) :- format("~s\t~2f",[S,V2f]), nl.
% strf2fum(S,V2f,UM) :- ssnnna(S,SN,N,NA), fel(SN,N,NA,V2f,UM).
strstrdecf2fum(Str1,Str2,Dec,V2f,UM) :- format("~s\t~s\t~d\t~2f ~s",[Str1, Str2, Dec,V2f,UM]),nl.
fdecum(S,V2f,UM) :- format("~s\t~d ~s", [S, V2f,UM]),nl.
fstrstr(Str1,Str2) :- format("~s\t~s",[Str1,Str2]),nl.
fstrdec(Str,Dec) :- format("~s\t~d",[Str,Dec]),nl.
% fel: Formatar ELemento.

fel(S) :- ssnnbna(S,SN,NB,NA), format("~s\t~s\t~d",[SN,NB,NA]),nl.
fel2f(S,V2f,UM) :- ssnnbna(S,SN,NB,NA), fel("~s\t~s\t~d\t~2f ~s",SN,NB,NA,V2f,UM).
feldec(S,Dec,UM) :- ssnnbna(S,SN,NB,NA), fel("~s\t~s\t~d\t~d ~s",SN,NB,NA,Dec,UM).
fel(StrFmt,Str1,Str2,Dec,V2f,UM) :- format(StrFmt,[Str1,Str2,Dec,V2f,UM]),nl.