a5teri5m

# FizzBuzz

nil           =  $(if $(strip $(1)),,T)
cdr           =  $(wordlist 2,$(words $(1)),$(1))
eq            =  $(if $(and $(findstring X$(1)X,X$(2)X),\
                    $(findstring X$(2)X,X$(1)X)),T,)
succ          =  $(strip $(if $(call nil,$(1)),I,I $(1)))
pred          =  $(strip $(call cdr,$(1)))
decode        =  $(words $(1))
encode        =  $(if $(call eq,$(1),$(call decode,$(2))),$(2),\