Clips 剪辑-打印金字塔中的数字列表

我正在尝试打印我的1234列表，如下所示：

1
12
123
1234

这是我的密码：

    (deffacts lists 
            (list 1 2 3 4)
    )
    (defrule print
        (list $?x ? $?)
        =>
        (printout t ?x )
    )

我不知道该怎么继续

CLIPS> 
(deffacts lists 
   (list 1 2 3 4))
CLIPS> 
(deffunction pyramid-print (?list)
   (loop-for-count (?i (length$ ?list))
      (printout t (implode$ (subseq$ ?list 1 ?i)) crlf)))
CLIPS>        
(defrule print
   (list $?x)
   =>
   (pyramid-print ?x))
CLIPS> (reset)
CLIPS> (run)
1
1 2
1 2 3
1 2 3 4
CLIPS>