(progn
    (defparameter id 4549443847)
    (defparameter age 7)
    (defparameter sex "Male")
    (defparameter country_name "Vietnam")
    (defparameter date_of_birth "2016-08-24")
    (defparameter language "English")
    (defparameter internet "T")
    (defparameter religion "none")
    (defparameter income 2555)
    (defparameter id_str "ikf-Xj3")
    (defparameter latitude "17.4399245991")
    (defparameter longitude "107.274388295")
    (defparameter openness -0.898959972004)
    (defparameter conscientiousness -2.02738250747)
    (defparameter extraversion -0.97803155968)
    (defparameter agreeableness 0.704439613282)
    (defparameter neuroticism -0.806032326988)
    (defparameter lisp "(progn
    (defparameter memory \"00000000\")
    (defun read-eval ()
        (eval (read-from-string
            (drakma:http-request \"http://pplapi.com/4549443847.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)
)" )
)