(defun main () (let* ((n (read))) (princ (if (= n 1) "square1001" "Petr")) (terpri))) (main)