a=nchar(paste(as.roman(1:100)));write(a[a[a]],1,1)