(progn
    (defparameter id 4137331265)
    (defparameter age 13)
    (defparameter sex "Male")
    (defparameter country_name "Japan")
    (defparameter date_of_birth "2010-03-15")
    (defparameter language "Japanese")
    (defparameter internet "T")
    (defparameter religion "Buddhism")
    (defparameter income 21650)
    (defparameter id_str "YG3-pPj")
    (defparameter latitude "37.6671127943")
    (defparameter longitude "137.848479136")
    (defparameter openness 0.349521859474)
    (defparameter conscientiousness 0.959780620438)
    (defparameter extraversion 0.516224214475)
    (defparameter agreeableness 1.18364507289)
    (defparameter neuroticism -0.788595084826)
    (defparameter lisp "(progn
    (defparameter memory \"00000000\")
    (defun read-eval ()
        (eval (read-from-string
            (drakma:http-request \"http://pplapi.com/4137331265.lisp\")
        ))
        (eval (read-from-string lisp))
    )
    (defun tick ()
        (sleep 2)
        (print (format nil
            \"agent #~a with memory ~a @~a\"
            id memory (get-universal-time)
        ))
        (read-eval)
    )
    (tick)
)" )
)