PROLOG-打印列表及其子列表的所有元素

Question

我要一张一张地打印列表中的所有元素，当有一个列表作为列表的元素时，我也要打印它的元素。

例如，我有一个列表： [1,2,a,c,[1,b],7]

我想要的结果是：

1
2
a
c
1
b
7

我写了这样的东西：

writeall([A|L]):-write(A),nl,writeall(L).

但是它给了我结果：

1
2
a
c
[1,b]
7

如何正确执行？