(format t"/~A"(+(expt(-(char-int(elt(read-line)12))48)3)24))