for(n in utf8ToInt("shplujsvktir"))write(write(sprintf("%3s",c(rep("",n%%7),1:(n/7+15))),1,7,,""),1)