```
toword(0,'zero').
toword(1,'one').
toword(10,'ten').
toword(15,'fifteen').
toword(30,'thirty').
toword(100,'one hundred').
toword(500,'five hundred').
toword(2000,'two thousand).

pv(X,[]).
//pv(X , [H|T) :- toword(X/10, T), pv(???  I know this is wrong.

```

I am trying to get each place value and put it into a list. For example; X = 2531 the list would be [two thousand, five hundred, thirty, one]. I didn't put all of the toword() facts, but there would be more. I don't know how I am supposed to get each place value of the number.