(case(elt(set's(read-line))2)(#\a(princ s))(#\:(format t"~120@{:~}"t))(t(format t"~27@{x~}"t)))