(with-input-from-string (ss (format nil (mkstr "a|b|c~%"
                                               "1 2 3~%"
                                               "72~%"
                                               "174~%"
                                               "2~%"
                                               "move 1, line 1~%"
                                               "move 1, line 2~%"
                                               "move 1, line 3~%"
                                               "move 1, line 4~%"
                                               "4 5 6~%"
                                               "move 2, line 1~%"
                                               "move 2, line 2~%"
                                               "move 2, line 3~%"
                                               "move 2, line 4~%"
                                               "7 8 9~%"
                                               "d|e|f~%")))
  (format t "diverse strenger: ~A~%" (cl-ppcre:split "\\|" (read-line ss)))
  (format t "diverse attributer: ~A~%" (cl-ppcre:split "\\s" (read-line ss)))
  (format t "vekt: ~A~%" (read-line ss))
  (format t "høyde: ~A~%" (read-line ss))
  (let ((num-moves (read-from-string (read-line ss))))
    (format t "antall moves: ~A~%" num-moves)
    (dotimes (i num-moves)
      (format t "move: ~A~%" (read-line ss))
      (format t "move: ~A~%" (read-line ss))
      (format t "move: ~A~%" (read-line ss))
      (format t "move: ~A~%" (read-line ss))
      (format t "diverse attributter: ~A~%" (cl-ppcre:split "\\s" (read-line ss)))))
  (format t "helt til slutt: ~A~%" (cl-ppcre:split "\\|" (read-line ss))))