$"="-";s/M/e6/,s/k/e3/,$_*=$<,s/..\K0+/-3+length$&/e,print"@{[Black,Brown,Red,Orange,Yellow,Green,Blue,Violet,Grey,White,Silver,Gold]}[/-?./g] "for<>