%COMMAND a := FakPla()
%COMMAND i := 1
%WHILE i <= Len(a)
%a[i,1]% %Tc(a[i,2])%
%COMMAND i := i + 1
%ENDDO