zabawy z lispem

(cl:defpackage jjhop.random
    (:export random-int-as-string))
(in-package jjhop.random)

(write-line "w pakiecie 'jjhop.radom'")
        
(defun random-int-as-string ()
    (let ((rs (make-random-state t)))
         (write-to-string (random 999999999999 rs))))
        
;; ---------------------------------
        
(cl:defpackage main)
(in-package main)
(cl:import '(jjhop.random:random-int-as-string))
        

(write-line "w pakiecie 'main'")
        
(write-line (random-int-as-string))
(write-line (random-int-as-string))
(write-line (random-int-as-string))
(write-line (random-int-as-string))
(write-line (random-int-as-string))