#######################################
# P Programmazione.

P.esegui = function (f,a)
do.call(f,as(a,'list'))

# x e i valori con cui x viene confrontato
# devono essere numerici.
P.quale = function (x,...)
{a=list(...); i=1; n=length(a)
while (i<n)
{if (x==a[[i]]) return(a[[i+1]])
i=i+2}
if (i==n) return(a[[n]])}