anchor.diff:    (setf *password* (read-line))
     (startup))
   
  +(defun highscore ()
  +  "fetches the current highscore from http://waschi.org/highscore.php"
  +  (format t "~a ~%" (drakma:http-request "http://waschi.org/highscore.php"
  +                                         :method :post
  +                                         :parameters (list (cons "action" "list"))))
  +  (startup))
  +
   
   (defun first-init ()
     "Initial function, gives some instructions and a small how to."
     (format t "~%~%~T~TWelcome to washi.lisp a full cl-i-ent (commonlisp-commandlineinterface-client) for @MeikosDis' Waschi~%~%")
     (format t "~T~TAt first the basics (for people too lazy reading the source-code):~%")
     (format t "~T~T~T> You can choose with the input of `search' `clean' and `quit' what you want to do~%")
  +  (format t "~T~T~T> Typing `score' will post the current highscore~%")
     (format t "~T~T~T> When you are in a mode you can go `back' to choose again (quit always works)~%")
     (format t "~T~T~T> In cleaning-mode you can wash a random item by typing `random'~%")
     (format t "~T~T~T> The laundry will be sent to a random waschi-server.~%")
  
positive.code:           ((equal str "u") (change-username))
            ((equal str "take-all") (take-all))
            ((equal str "quit") (exit))
            (t (startup)))))
  
  
  
negative.code:     ; Some servers give a #\Return #\Newline back:
      (let ((working-list (concatenate 'list working)))
      ; sometimes you get a code-file and sometimes chars (fuck webservers) 
        (if (not (characterp (car working-list)))
          (ignore-errors (setf working-list (flexi-streams:octets-to-string working :external-format :utf-8)))
          (ignore-errors (setf working-list (flexi-streams:octets-to-string
                               (flexi-streams:string-to-octets working) :external-format :utf-8))))
      ; producing a list we can work with (chars instead of code) - Now with working utf-8
      (remove '|| (mapcar #'intern
              (split-by-newline (concatenate 'string (remove #\Return (concatenate 'list working-list)))))))))
  