digital literacy for everyone
[lit][generate-title]
[lit]
[fig]
#### license: creative commons cc0 1.0 (public domain)
#### http://creativecommons.org/publicdomain/zero/1.0/
function ckp ckfp
ck get ckfp lcase
b "" ## leave only alpha
forin l ck
forin a "abcdefghijklmnopqrstuvwxyz"
ifequal l a
z b plus l swap z b
fig
next
next
z b print
d ""
forin p b
z p plus d swap z d
next
ifequal b d
z ck print "is a palindrome" print 32 chr print
else
z ck print "is not a palindrome" print 32 chr print
fig
fig
p ckp "do nine men INTERPRET? nine men, i nod!"
home: [lit]https://freesoftwareresistance.neocities.org[lit]