(princ(case(length(read-line))(5(! 9))(9 59049)(t 34)))