#!/usr/local/bin/sbcl --script
(defvar x)
(defun inicializaArrayTabuleiro()
    
    (setq x (make-array '(3 5) 
       :initial-contents '("_|_|_" "_|_|_" " | | "))
    )
    
)

(defun imprimeTabuleiro(tab)
    (dotimes (i 3)
        (dotimes (j 5)
            (write-char (aref tab i j) )
        )
        (terpri)
    )
)    

(defun menu()
    (format t "1-Eu começo jogando~%2-Adversário começa jogando~%~%~%~%~%~%~%" )
    ;(read)
)

(defvar tabuleiro)
(setf tabuleiro (inicializaArrayTabuleiro) )
(menu)
(imprimeTabuleiro tabuleiro )