a=as.numeric d=b=sub("(.)","\\U\\1",c("silver",colors()[c(142,24,32,552,498,652,254,26,640,260,1)]),pe=T) d[3]="" y=sprintf("%1.2e",a(sub("M","e6",sub("k","e3",scan("stdin",""))))) `*`=function(v,w)a(substr(y,v,w)) e=4*4 write(gsub(" +","-",paste(b[3+1*1],b[3+3*3],d[3+e],b[2+6*8-(e>0)])),T)