gcl

(load "bloques")
(load "agente-humano")

(inic-bloq #'agente-humano :verb t)
(inic-bloq #'agente-humano :ini '((A C B)) :obj '((C B A)) :verb t)
(inic-bloq #'agente-humano :fich "simple.blq" :verb t)

(help 'inic-bloq)
(help 'gen-bloq)
(help 'sol-val-bloq)
(help 'vis-bloq)
(help 'mov-val-bloq)
(help 'mov-bloq)