(format 't "~d~%" (+ (* (- (parse-integer (read-line)) 1 ) 52)  316 ))

mannshi@MacBookPro lisp % 
mannshi@MacBookPro lisp % 
mannshi@MacBookPro lisp % 
mannshi@MacBookPro lisp % cat No.299.lisp
(format 't "~d~%" (+ (* (- (parse-integer (read-line)) 1 ) 52)  316 ))