pdl> $s = cc8compt $x

pdl> p $s

[
 [0 0 0 0 0 0]
 [1 0 0 0 0 0]
 [1 0 0 0 2 0]
 [1 0 2 2 2 0]
 [1 0 0 2 0 0]
 [1 0 0 0 0 3]
 [0 0 0 0 3 3]
]