$/=$";map$_=s/-//-eval s/\d/-vec'&UTFg',$&,4/ger,($_=<>)x(<>=~/^.$/?$&:9);print