使用Prolog从列表中的元素中删除引号

我正在使用

I/P 
atomic_list_concat(M,' ',"cal 1 2").
O/P
[cal, '1', '2']

但是，我需要的列表是[cal，1,2]，如何在prolog中实现这一点？

提示：

？-atom\u编号（'1'，N）。

。