Define pack
Define pack-num-list
Define expand-num-list
Define encode
Define decode
Define any? and every?
Define maplist
Define for-each-list
Define map, filter and accumulate with use of for-each-list
Define iterative repeat-perm
Define Komachi-function