(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) )" ) )