(format t "Hello, World")
(format *error-output* "Goodbye, cruel World.")

(format j:*markdown-output* "# Title
This is *markdown*!")

(+ 2 3 4 5)

(ql:quickload :shasht)

(shasht:write-json `(:object-plist "foo" "bar" "quux" 1.23) t)

(jupyter:json `(:object-plist "foo" "bar" "quux" (:object-plist "a" 1 "b" 2)) :expanded t :display t :id "a")

(jupyter:json `(:object-plist "foo" "bar" "quux" (:object-plist "a" 1 "b" 2 "c" 3)) :expanded t :display t :update t :id "a")

(/ 1 0)

(defun fibonacci (n)
    (if (<= n 1)
        1
        (+ (fibonacci (- n 2)) (fibonacci (- n 1)))))

(fibonacci 7)

(function-lambda-expression #'fibonacci)

(jupyter:markdown "## wibble
foo `quux`")

(jupyter:latex "$$R_{\\mu \\nu} - \\tfrac{1}{2}R \\, g_{\\mu \\nu} + \\Lambda g_{\\mu \\nu} =
               8 \\pi G c^{-4} T_{\\mu \\nu}$$")

(jupyter:file "lisplogo_alien.svg" :display t)

(defparameter lisp-rocks (yes-or-no-p "LISP rocks?"))

(jupyter:markdown (format nil "For the record Lisp ~A" (if lisp-rocks "**rocks**!" "**does not** rock.")))

(defun ask (prompt)
    (format *query-io* prompt)
    (finish-output *query-io*)
    (read-line *query-io*))

(defvar quest (ask "What is your quest? "))

(format t "Your quest is: ~A" quest)

(loop
    for i from 1 to 10
    do (sleep 0.25)
    do (jupyter:clear t)
    do (print i)
    do (finish-output *standard-output*)
    finally (return (values)))

(defun no-output-reader (stream char)
   (declare (ignore char))
   (list (quote progn) (read stream t nil t) (values)))

(set-macro-character #\~ #'no-output-reader)

~(format t "No output returned!")

(values 'a1 'a2) 
'b 
(values 'c1 'c2 'c3) 
(list / // ///)

(values 'a1 'a2) 
'b 
(values 'c1 'c2 'c3) 
(list * ** ***)

(+ 0 1) 
(- 4 2) 
(/ 9 3) 
(list + ++ +++)