#######################################
# O Output.

# Vero se x e' un intero positivo.
O.interopositivo = function (x)
{if (mode(x)!='numeric') F
else if (x!=floor(x)) F
else (x>0)}

# Stampa una riga.
O.riga = function (n=48,inizio='')
{a=rep('-',n)
a=paste(a,collapse='')
cat(inizio,a,'\n',sep='')}

O.s = function (a,col=1,righe=NA,vuoti='')
{lun=length(a)
if (!missing(righe))
col=Ma.div(lun,righe)+
  (Ma.resto(lun,righe)>0)
else righe=Ma.div(lun,col)+
  (Ma.resto(lun,col)>0)
a=c(a,rep(NA,righe*col-lun))
A=matrix(a,ncol=col,byrow=T)
print(A,na.print=vuoti,quote=F)}