day4-2.p

/*
--- Part Two ---

For added security, yet another system policy has been put in place. Now, a valid passphrase must contain no two words that are anagrams of each other - that is, a passphrase is invalid if any word's letters can be rearranged to form any other word in the passphrase.

For example:

    abcde fghij is a valid passphrase.
    abcde xyz ecdab is not valid - the letters from the third word can be rearranged to form the first word.
    a ab abc abd abf abj is a valid passphrase, because all letters need to be used when forming another word.
    iiii oiii ooii oooi oooo is valid.
    oiii ioii iioi iiio is not valid - any of these words can be rearranged to form any other word.

Under this new system policy, how many passphrases are valid?
*/
DEFINE VARIABLE cInput AS CHARACTER NO-UNDO.
cInput = "vxjtwn vjnxtw sxibvv mmws wjvtxn icawnd rprh~n
fhaa qwy vqbq gsswej lxr yzl wakcige mwjrl~n
bhnlow huqa gtbjc gvj wrkyr jgvmhj bgs umo ikbpdto~n
drczdf bglmf gsx flcf ojpj kzrwrho owbkl dgrnv bggjevc~n
ndncqdl lncaugj mfa lncaugj skt pkssyen rsb npjzf~n
kdd itdyhe pvljizn cgi~n
jgy pyhuq eecb phwkyl oeftyu pyhuq hecxgti tpadffm jgy~n
zvc qdk mlmyj kybbh lgbb fvfzcer frmaxa yzgw podt dbycoii afj~n
zfr msn mns leqem frz~n
golnm ltizhd dvwv xrizqhd omegnez nan yqajse lgef~n
gbej rvek aehiz bgje~n
yej cphl jtp swe axhljo ddwk obwsq mnewiwu klddd~n
ipiev henods rpn qfpg gjfdgs zcpt sswab eosdhn teeil~n
gzje ydu oiu jzge udy sqjeoo olxej~n
mgn gox tcifta vzc lxry gox gox mvila qdl jipjnw dvu~n
hxk xhk unhdmdz yomze povrt nbww bxu qqsqc rvuk tgffy twddm~n
fyx fyx nzkm fyx~n
ymnoc zogudq yncom tqrob sidvy dfuu ccjpiej yidvs~n
bxebny akknwxw jeyxqvj syl cedps akknwxw akknwxw zpvnf kuoon pnkejn wqjgc~n
kcebrkj zmuf ueewxhi mgyepbr nleviqc dez~n
argavx fqguii gebohvw klnrq rkqnl goevhbw~n
ywqi abwi eswph nlplbl pswhe lnqx fpgk lllnpb~n
abpb mpkw ampey yapme xnuyj~n
tmuaq asd bhbs sqmbsnw wsbnqsm ydwdncn rpa vrllkh~n
dnltf cck djy ydj~n
wywwl scezo clowuz dkgqaj dohyzcp~n
diimshr vlmsnlj whqb dkicau ckdaiu terp kgcii npqc vvzrqzv nol~n
wfpxe sqf tbb ruqpcq zfgb~n
kajykuz tsxgtys vuz kglmgg ihnnn plyjxj rcrvo mij plyjxj jqiur~n
pxs hmet dwgvd mvhkvn cjxg yvid vmhnkv kwxz rfemsua wdgvd okixk~n
lzwxas ddtyeh ivyama crrhxdt hedytd jfw~n
vjfv oyd fvjv kfwlj mradbx mckseee xradmb~n
llga yytxyvj lstspek lstspek lstspek~n
fabgf wgop fabgf bvsfoaw~n
grqnbvo tntomdw hizg tmotdwn~n
mau ufkw cxfi rhehj ebe xyv rhehj acxngo arl qtl rhehj~n
kbkto stqjtm tpcwshj saerkrt pffj dthp pfjf axc gwmmfdw glnqtdy xmskw~n
veff zqm hzhxap lgwnwq twsdk mqz xbbarbv cdx fhnwt qjcji bbvbrxa~n
fjw eds hofskl nkbsv des hvx xyn~n
qzort qzort qesz rtq oonk vwzlw wapoj ifr cta~n
pja hvy nhjg paj smtfe fmtse~n
xvi tcjj xvkjtab nqftt aumijl xkd cmilegf hvsmodx uuo igmcelf mslkq~n
mdhezgv lelzy kzfvsqu hvmvaxw pxiqjc hvmvaxw kzfvsqu~n
hsicsav csshrhx znojm eapi lhmzq bbwnz seao gfk azk~n
pup xtgjyzy wqt ijeektl~n
ktwh qdegzs btj pfwzzho~n
xdkmdm izqtjrr iqbke vtp~n
fmrbpdr zpccv tmtwx tmtwx tmtwx bys~n
ehphfgq idd ehphfgq ehphfgq uphe hvrc jcscne nbnslqy~n
xzqucgj fcih fljk barz lvln hcfi azrb~n
cmfmclv mfgvifw rnxgn jpg bsnq wnduzj ymsdx smdxy pqomf~n
rlqsm qrsml emts qsmcowv scmvwqo~n
tshzkpa zwtpda ftsiwo nil tpawdz kjpa ptzashk~n
mnep sfc swjawtd vnwud gyulluw zpa kmwyvln evd btnmoi dnwe~n
jwq scepq redoxmw rbdzsa wlkzso kxpm bttg vxuc moxwdre ijtdd rzsabd~n
wpvo dsjox amuwjm pls lgwksva ctakgpl rmsjj lzwwpr zzm udg~n
bji obbn tmwyc afpmkxr glvrd kahhgpq rna qkxyntp vmd mloshc~n
ymq rtnr nxjzm pqiddrn qmy vgxw ull~n
mmzk ikge zhtzhs xyo qwe lll gjjm icetq qgrr mzwqa knec~n
kxomfck idlh xrbowo nyetbnl qskh xuwkkxe upmmmf zhvuyp~n
srcwyhl czgr xmhuws jueyh xcuib xhsuwm bxuic~n
crkueh beyxopz xpyozbe dxgadw qktmce rjropjg~n
lbktun imdpcp fkssp fhcpt fehho jqdnt aoewa~n
jmun pynzjo trs ijwcc pelf oft pcsqdxg zvql~n
mneaaq vjrg jidlrzz phd mvxpivd ldkhu~n
sao xqw nrukn gatkz quscpsx vmz oscoeb~n
goi wzxhb rrk aylqqcd mlcbvvf ororn heptid kdu byevr~n
qsj lsbieef deez vzwdx hez iwd~n
lmgfb keqt mqbsuis ogrr errbi xiqe xsszacp~n
ato hmk zfjaj kmh plxup cida dqd pfwh nkbxvpr buajw pxkrvnb~n
cli bdwu vrwott vowtrt grle~n
zisgks ciuaqr zvk tcb kvz ugmtv~n
oegrojm wofpwp gnaocx rweyull ellhwow dtefylf dqsz oiw varr bcirpf oxusz~n
oydkmib oydkmib yefts gbl gbl~n
sruwjk pgkrp kea gppkr zdcky cfljh~n
obpxbax jhpcrj slcsa lgd fborz vvpaus wsrpsws ifijuzo~n
rixz jwh uhdaf hoacv hdfua~n
kntk qprmfow kntk tbmcjx~n
vnqe ooyxtb ixl hdmnpn orpz ykspl xromvj kowtq wmho gquos~n
ynk xjjqw sut lmtub bmtlu zdo dztlk bpkuul smhpx rbczg~n
zals csdbe sbj dibicq kdfwwt~n
coyy pjddlfc lwvhyms ldjdcfp ryubz kfwst dqjrjja jtv jjjaqrd~n
jaexhms iqoiln ewgyr exmnrr fsr lgmyy fdofhn~n
pjgyn hfoz zbcnz nczbz~n
ovntivq vcey vdrkse giu ohyaxy ionyy fvpn yvwrgrv qta~n
yelpz htbk njgeyub tggh mdthzp fwyux rduqli twlhfp pnh gywif ttn~n
yxhsbil vplsmmx rgtq grsf lyibxhs hctnkfr awg lmloz jroy lpgb wga~n
kzytass szyksat tyskasz ehmhhu~n
jkus hwjv ymnnkk yffugg cvtnits gbl lywkn szihcn dbrbalf rxqpbqh~n
koyfcef wkom mwok qgjrytl~n
slmhry lcr slmhry lcr~n
mvoxbt cfkz purnsui xar ouhtc thbx~n
xcdifw kvvxyrj knac qmypw bou tmukqy eusgaoo bktiu~n
ablgnhb axumg bwpxnjp zqpc vtw ghhoxu zqpc znfpvl ghhoxu jlg ntdk~n
vmvc cdkhrx cvz rvxk mmcuo udpcayd lsmm gufduzt linj~n
mgyeqkv hqionh rgnqgz kkc qrgnzg egkmqyv topdp~n
koa dimwx gjxa atlfdy~n
uuez ueuz zeuu ezo daq~n
ofpaw bgomvmt mqa dexpy mbipd epyzcoa nuwrh vwly xppz qkjrleo rwhnu~n
wok grxk lchvtg plrzr lwaax cfeu ijapws dmkdwc cfeu~n
zkd hysxxip hlydw wicsvy gbwoaw dapre ktjn dzg uri~n
blzh hblz qgmjceg fyf~n
vkhpn xnc ogva pjrh cxn hkpnv~n
aja cldzta tdcazl lorr fwmxxh knilf ges tdhp gnlo vihrl~n
ucpr peair nlbmc msfg~n
trv ppq bmo xqd vbui yegsr xqxawu fvuz aclhspo wnan~n
loiq fvg kare rmgq hir rzo ossd ziw renh ygtkjys vda~n
xmans kio alexs ujekfl vvf ddghn~n
fcxvsf bjuytet zrzsobo uhn mlfzhlq bjefs~n
zys htlqvky plno pbcqfuf fjwc vshkxrl lonp lyzmy dqmui vyyc glad~n
tlc krhcter krhcter bolk tlc opryl~n
idcii dverl uswb wusb zgax zhbt gjsnlso yhs~n
cti npri rcbxjdw ollj nirp ghfvxzh~n
blyhug aflnrrz zudyw ccnstq cyoju jxtqoj ntuknjq gunjiwy ycuoj igac cqctns~n
bul yehpnw jifjrhc ifetu ufrodp hqzpeqf hdvpc qtvgxg ibb wcxsitx xztshb~n
xzct scetn eoaufyo jtudgkx xrpgxip lpubtq juezstc nuc hokswh obkf ipbu~n
nfq lwpmn qltal xnphsqs zlrgf iewtrtd mqzsob duokpy kfbqs icg~n
vil zjz xkqrvni uay ystq~n
terrrnt lnfg clm lbs ptpiy ybcuup ayzjm pqugx lmc yppit mbf~n
dtajh vqivg vnblt fmn qxkw stiwna pclrrr fro khu wbslnqp tjyosu~n
uqlehn tjuiy obt uedct bbwiq uxndqn~n
hiqfovy xiimca zwne ivunvjk cmctzi mxnnrx dclib xzaoq ieztkg~n
shpr xuorihj chuwq poadbo mhtvex gymsp iltgl sypjfua fmyh sgiv~n
alv nxjt txnj bhact~n
vjvtrex obmrxk fgigs meixbc fggsi awi rxdjpeg~n
ypwo oicmbdw xbpeeyj uabzj cjvutvc oicmbdw immtmks~n
exijri hogl epr gzdqyur xiiejr pre ihzlgzu~n
rlh qfhx lrh qmvrx~n
kogq okhd mivmivb mivmivb okhd~n
taekt nhjaa znbaahn iaospxy jawwf~n
ytdvq ghtqwud jkiig mre kzmmjxu jba nwpykc~n
ktyzr aczd exgadhb uinrgac izazxky yyfe~n
yrifb qgc lsiuapg teyelxn ugezu~n
wdzkc ltx fkhncb hwrecp kfbchn sfcpc hjvq~n
rjdjyt ahwxh nvggsmx lmz oshd xbcik powse ahhxw yhiq gxmgsnv~n
qdr qjnam gag qjamn kooek mqnaj~n
pza gml opf ilfbblu kjp luilbfb rhfrzgp ixagj ofp~n
yphz runy dhull bozcsgk wfxekrd akgkbz urcphc~n
tfyxwol lhcl npik beug~n
szatel yfkve yfkve lzqhs~n
yjzqon pcjibu bdncmcl kczuymm pbmg nyn~n
rerqvs aoxucwi pmstl sstawu joqu abvcchg mvgjn mslpt vhmfkr utusuh~n
gqbec jjpqdh yeaiavi nledfi jhzwc vyxjpf momnm vnknjs nvgjzik ipm~n
psirt rispt lrkgma irtsp~n
jbbaph xvunete gsvnr mjd ifxhpry cpsx hmuokkx vhcm yth shrrl zbhd~n
gfa bcmlxtf sqyanrp cugg qxfvftz pbl ujsgc jajxltm gugc oil~n
xjuhyg aht vmyvzhh oby oyb ybo xbybgmx~n
atfk qjudfzz mky tfy~n
nxk yzy jqgg qxgjt bevvvv efi xcbw bohc zaqlqjq~n
hdc qpnx ygmtqw acvoa udboxw dhc klh mwgpk xfpuri~n
cycgbkq skwhyf skwhyf veaqss skwhyf~n
jnezf jowjt vsdu uck scgxd fvopomz vfajslp~n
djvi epgkyqn apzd cpm owm kpwih fsr adlhqu jicp pmc~n
erxlmhj wqxvofi ugj ttrmtsb~n
omku vmrgoy tdicbje ewml dfnwbap~n
gpih pyt ptsmzc gmdbu rqxkqmz objm nurxjz oozbere ztxug koth~n
jpnl jpnl dmeh qed~n
intdwv ksgw qwlzhq zpd lrl mwjl dozrjwq aujbet bsnf vhqyg~n
eqs uot qyz xor aem kmrh mrhk jqx tsbrf~n
irytjab mdzm qbb kkjt gofiwo xgbovg kyeyxqn tcks tljhx~n
zgejy qodgah nqavvx xnigdvt~n
eqve bizrxq lkhz yzwxgt nwe zfe sxypkz xnssept~n
bxqn lkfg yfxbszo sphwifz wnj crhbq dvokzw~n
vzn afatwye ogzvnu vnz rfjba xtugnj kpbgly ocsjd~n
xrc cxr rahv yvhk khyv bed ctgbuq cmqwpqa jlbg hpj vmesvw~n
jbshkya dgqw lfl mzcch jxsg czcmh ifruvlw ufwrlvi xcczlol cqqchmr~n
rbk mhn tnmqdc sxnnn kvoa mhn sxnnn mgemob ieiyajs~n
cqi ghxg ghxg ghxg~n
uqwdxn qli gdtkngp gnptdgk udxqwn~n
dmcczr dnjaqc qwdta rhrbi hkdwe qdjcan peic iulaz xns~n
tcmppb nzq ecy sitdud nft ecy afrbf wvnc vmfpzx tcmppb cgb~n
plitv efnpq mjqav nrxxo izg lpitv rwbzdo rdbzwo~n
day dntga adtng agndt hhvtd~n
yrg iudsh gyr ryg~n
qttyeew tco flq bszw jkzftc wdh efcwnp mja rfmju~n
moch prkze uslzyv plhjuy kxczyq qlmm hgq~n
xtg ypz izy ixg bvs xlqgj xcy sepza abiylsg~n
wxvsxn bqag jnlzgxq ikxwa dfd plqxl xlgqnjz nuqvoyb emhodso gaqb~n
bzjdsm xmxkj fhuqn gauyw ntl kjxmx zcxdr vrds~n
ofjcc uxyzlk ofjcc ofjcc~n
zwosex kkvwobl cpudsmb kes zklf bayuojr otqnyr udbbs~n
iqpvzh ybds piovrh oivprh voprih pov sfl~n
upns cpeelht xboyk itb hsxdmt dnwgfbw upns fygf kwdpxzm mli dyy~n
djwutl sikh shki ikhs gecd jqkon trqyw~n
prbbdf vdp bvvfjcg ydqb muxygg~n
vhpurzn psemqe xwqfk hrvonxu nxkxacq~n
xicmhss tnpja qiad woipfy uvadcq usljh hzgs jntvfv wzikk~n
mmupc twntp upcmm pumcm~n
qnisuzy lppnfd uiqr eyqbain uxlp eyrfwjo olgkrps sbikam zin vckr~n
nmokl skfni jcdfot njzqeaj nqzjjea~n
slmaxx offfzqp wudicrf nfn rwfcdui cwirufd~n
paffi murnjd oyj lbtjdqe babuas dtqh qkt stapzl yrqlp~n
eedc rig zmnfmn edec ecde~n
bcfdf edovdj lacx nzvze sordvxj ybs ujh zvvvp rzstejg ueosuq~n
xrrfsd okuvem znzlvmb jwzcb bfg bmuxbc qzwfry~n
pqgxybd cvgra acgn ocd ancg fvfcx fbb bfb zfzv~n
tmmv mpywyg fwl bnvcv lcnv flw~n
xxnfbro papc ianru beuzx apcp rnt~n
wuyhycj nrnc cka ebg rncn rvo wcyhjuy~n
thh cmoog hwf imqfp okzpxd~n
rzxiqt rtaiy ytria tyria~n
cjkmro myif myif xyirn aqxlol wlhwibi dhzsen pzwgm bfbz bufjs qwffg~n
mxhiui umiihx zomyll vfieccs~n
yyntf rjk iivgj mwh rjk~n
dsshx wsmaxhc xcwuelh rdsgtr wsmaxhc rgtsfj~n
rdh nwlxiwu xsjzbpr bsgps~n
ufyo vqtzkg kpeohu mxzt fyuo gawgaq youf~n
hzbhut bxsnjwb zuhhbt zhhtbu~n
pdz sgntypg ragev hrrji goitft yphnebs xjzoo sqf jsuzijq dsocb hcxg~n
pptsq woomypc woomypc woomypc~n
axcg wfbnpql ejqb cmnn nncm csvlc wraludb pkmp whtht tfpicer~n
moom oomm ommo vfqeii~n
xvrgpp rofl yxyrkb oage nypzau pwfnkn jxnhkw cyxsi clzb adwpuh~n
mfbz vdtt muzhm wvwwfl ttdv~n
cpqgvbu byc pgfrlkr aftl tqm zcqxi juu gnf ppovxh huoa~n
konpcp lzordid jqng lwxs nqgj gghkxmf kyn ngqj~n
iorhccj xfygc cnfr tysqc xpcyf vmjpitf nut zmrk mgbrtb tcblxwf dkadwrm~n
kov jtmp xoatesx qxkilp rmggpfx ltpxzwf vko reqms mqq nps~n
hjigmk fyqy wpuwe mwmso thsimfs okcmeyh mzqkez duzaq vzhyrm uyvpkox cwivpls~n
ukoerf korufe zhs ntwfz hugem vriyk enfaib hrrcdgf zllsk vkiyr~n
shkx khxs wntpjv qdevaw noqyht nwpvjt egh hgok mukdjfi law bzbvjz~n
dquk kczxsq tdu trnkjs wqtdc ybvcb~n
hlrotxn cumcjkm qwufgle ylm nejh hnje pvaigrx myl sfvsd~n
szmvisn aywic vsnimsz iufmybr~n
zjozr zojzr qmn ffrggdh wam dafvok~n
nxkvlhr posmf posmf posmf zhlzb~n
ywis kpqpyb qae zqxpuz pcj hbsfz ejlwa lajew znuom~n
qxsl ussivur dstd avojo~n
yoeagao egpaqm ymzf kkauy ivm illir wsvchne skmamvn nqxc~n
cldo ixzzy vhk nra zhypgab~n
qjdd ecxud tbuqq mpotbdk tjdpczn knncm tyy~n
rbfc fhhjf innia tsjbbbv fmtcuup rapvhqz ebpzt whdbms gvjoy lykl fquvcby~n
bihhfwi lhal udxz uwjwp dmb~n
fekxamy uophet yzvv rqj zawlp ldrv mdymkzy taauf~n
rcwxvmh edueui ltdyo xfghz dgjig senm ifj~n
qcu fii axmgijj ifi oixjfsg jxagijm~n".
cInput = cInput +
"sdtyr rbdh yvnvq czzuig wro~n
lot xkto cmpiena nht ozcg aotcw xiegl cyaouj und lsclep cexn~n
pgihljk cmgmv sajhi zfvbqij ogwoc ajsih zmppe~n
jexwkdp dwpexjk mzjydfu bff rubgdb~n
yshfhx emkl hshxyf mkle~n
dxgti jdo tkwprv pbxbrqd oiz gsbdphd qotu utfdnq tzvve bqc~n
ovdf bshfxyl xspjpd vljdsm mgkd djlsvm mlsjdv~n
etyia eytai sfq qafj xzgp ewhsn snwhe lhqp~n
zjz mwh dorxm ges gexo rckwsa dltoq mmntha~n
hqkuj ypsjcxo dixbe rmvnhjh ovnr~n
edc iffaxc lolu xwrvpb gva vti vit~n
ceuxq xbwejr lzyvm rozseit cwe mham fivpwj qtv omaktaw~n
alzdrk tsxbuld mdbq pgbdtoo xwf vzalric nqe jqwlxsy cbtylu dtubxsl lqm~n
rqjmjcs exjpn kpilcgu ihcm lfadjm mlri hpd vqs cxqwqhu twxrtk~n
aeuvlcp aubvnw riedvz arypagp uuvg kliehx cokt ogh xsdw cdsyywv~n
ddwrgvp bscaq bbfv qrbutp~n
jpdg uey eyu uyarl zgbk qyhqq fdvlql zmwkp~n
kbt bkt lebhpfu smrzt xalw mmwa zmtzfry tkb~n
fcvcv oewfzu fvvcc mldww lwdmw~n
ejrltsu sqoyx wfvsdbp bfdspvw bfir jqhgrmt ofdmrjg ysq~n
jzwucwn erqjd eikq knpf cvk xvqnscy eei wvfjzmj xujq cqaim boev~n
jqhkmr ipjpj zwno ybu krhqjm zqfyyzb dyciy~n
ugwsw rpwteje qtvwi pwyhrzt hfcdfmc qbovk ibws~n
ffy kdder qjookz bfvmvvq yjzuaj fvxllfb pjyz jcezhye fimyydt qjookz qjookz~n
loupd nwsc yytvuqo ltcqxnf~n
iho ulvxguz fxbf iqu ofjtmvq xhs ybbusd kxg mebdnah ucttcf zufb~n
wzdb wumuhtv kef aavv buu xmjtlur faaccl wospwff bjasr eapfsi~n
jau qzszci ciu inagax~n
kui tqig fyovsp fvwol fyovsp mzth tcp nhoq~n
ajdla wtpj amylu jly tvq wjqef~n
ofqc einz bdze tows bdze eew~n
avwavzt aesrsjv lbmpi hllv chdbul ezelxn~n
imcprs cafb clfg rsjo iylqu nvk vkrq izezlnu vkqr tyhnv~n
rwj zboui reh buzio wuhpvid cpzy jrw tsbuiby hmxwqr ute~n
ixq luwbi uoiwsjh souz ysoubw uilbw ffwjvw ewzswoh hci zmfdaov whowzse~n
xrhgqf xrhgqf giyv giyv~n
toiqgzv gakg udgdlb wvi carrn pjyha muqclu~n
wuxthi srtszr ourab hpds bakvy fnk yefe yfee doowxcx~n
ijdc ujhvls xmy hwg yetsda qelbe nang xgywo wgh~n
bhm icq cnam dec enksf qfctz pwxoo bdf cnma xoowp rbls~n
jguzh fextz yax kesaunn waljo jltcza tfzxe dezs syi ebwxnks~n
flvq bzgd clvqw ahtyvu xbdyv wssxx boscm grgl nqcg~n
caskpli hqctxxc nwpyo wjlqfqf ebti dva~n
wmsz fzpd ikgeq gti ejftoou ezs cqef mybojc rgwz~n
mdaay yfppa pavl fuuvfkh hpod tpb dhxmia emdecm rbqcwbk vecyt~n
neha rmvl ndp vlrm dpn debghi vyhvc~n
bnp zkxdu iqqkesd abtlx hmjasdq kyvekr krt srrjyd oxmfev oot~n
dumlcqd ccm hyir oritdz madjjw~n
oakqrs advfmu verrc zkfdcn btndsp~n
onlkinl rdtm bscfxre bnu oumyrvv kgc zkj~n
tfxfsgm uwmic agswclg uofezgc~n
wpfdyjn kjlihk etbot fbu scm gwccce xgownte wig cuaijbo~n
bzbdk etozk qracb oftfoo lkooe~n
xupzw vmxwu sis wzpxu~n
gbz oqbgh jwgrru bzg kwmxcfc jrurgw~n
agyjnyc tuec imxlult omwiyjg fiwnoqx nhmnro qtg kbr agyjnyc~n
koiq llreotu elrtoul dubfvgy whq~n
htm lll crzppb gdjaae nsmxzh gnfvn obiuy ymspzbo iuboy~n
thm xlfrr pbxdfo mht tygi sapxgbv mmngzf dej~n
eus seu qmstw ues~n
yvfsw esut biblze kbjcpk estu xih qzki ezlbbi blzv~n
ohq ugc tqqeo jygvpwm vfs ldnfibp ycbpa sml rmime~n
kuuow gbg nzwdaf wiimtg lam oqmm~n
wsbwkdd hda nqk ticz mvt~n
gqbljyh zqugqs cjod sxwlqy qkfs wwvwvt dsojb qbhjlgy riusoa uosari~n
jkphfx dbt les jsvoij rnuw mxmmchu dol vto swn~n
qqxe vwvephr twdqlyg cvdu xjiych clooq vkwavl whvverp yuz vkwval~n
txtbudi tiutdbx wqhx tws utgbf amh hmf izsez ooz~n
egdube nhsxjs nxjshs xoy sjsxnh~n
egdziod diodegz ejxn zogedid uhhkr rnm cyvvuc uqbl~n
rbn pinwag sidwdwv jqdbe jlbemk blkeaqq ipfqbtn zkrbp~n
bdryz sbh wxvn mhot wemsfm oemkff~n
vxyn xvdwwo xhd vyca zxjaw vfkz xhg ofsphks dyq mmzzd~n
yjrqsjf iiesdh envwyx rmtbmiv ggzsg ukx bprfym qmyqc vag ymho hjtoh~n
fuxxrd wbweptd vkoffr wbweptd~n
gfwcez smetli yjyh pslpz qyokpsm qsy cxjymg wqfkf obuq awz~n
eqhm ceest kayf heqm~n
rdi dti vntcf ewkmpvf jjwoihc~n
sfq qlb xrm ocy vtnj zdznbal zvon stln zwnj wsgalvq vhphap~n
pya jay mgnyo pya xmapdn~n
hrwbj xhr gvwl ktq ktq gvwl~n
rzgqi hjwtthl kxhggbl wepc hgavj ctmqug~n
tzfwkc xeqfath iiuwq iiuwq dhwuvy~n
gibagy smq getjofc lum msq ulm xuxu bilrus ily~n
xlv ndrkch hdcknr nqltoze xvl~n
wmc vuzlrj mwc atp cvpx atv ujatz~n
hxpafgl ymjltv nvvpy ahycdk jhpdcks ettm lvqyw ertpivm dnezwxx usi kdhcay~n
vrh hqyomv mcq ilwjbkz yprjxad~n
ugv szfitxg zeluib pfj ijm zmiigxx gltxzz jzljhgh otskue~n
mxp bilj jlbi tce yfted zxsqas ftyed~n
ykasqv ehye kirmnl upmi dojwmw wzj ykasqv ifixn vreoypz~n
kerbgub nnroqk onkqnr gbebkur tjhl knjo ccsem yozvrcg~n
ygq evkoj wkn ffljhds scxeibh egsybeg mwvi vgjblj qda ywqpp~n
hocvpl ozgkxp xgmj ejzyxm~n
gernu kks lxe nxzv sypg xle goz~n
xoatis fjp wzlbo dzkonz jtutyj vdonj swro tqclemv xhomap ymeqkua vaxcw~n
mxcyjs ywyxndk wng vpftv nsuvu~n
jmiyyhh gwser shgcu jmyg cjzegc hmhe eopg kmkan~n
smdd dmds mgqhtkh qtamih haqmit skkcy~n
dnj rmggy rgymg uburbao rymgg~n
klcpjgq ons ajyv sqryt son pjlcgkq xlobdt~n
piw shonk tzi mcdumz noskh tebolw yaypn~n
ozm mvmjgtg nxj weommiq asnmhzq xjn uobztuo cqgjh utfb oydt ommiewq~n
qlwgsc vvpe xgft ahpjc zjtx iyof scwqlg dxgcokx ltrefj xyzq rwto~n
ggqdd dqgdg ggdqd kjkmmfp~n
htzjam fjbg iagc xls iagc iydtf ihxl boa iydtf~n
vhe nqj bwgdoi hhaoa qtulz~n
axvyja hpdkwee hnryj prou rgadv oubjdqg knjbc~n
caz xibj wqkzwe peioeya vmz hesy ftb~n
dudwcr gupj sjrtzc xsqbb hiet nujv bebcvsj eks uuzlcx gex~n
kywozi tfzuc mflssw hnxxxqt zzc tzfuc hkokuv mnjg lwkavjp lvpwjak xez~n
izgh zfv cingjt dkf cknite qox vfz zvf~n
ojpu dzk tehpgnt gntpteh~n
glxfxa uxq ajtles ahgzn ajlste zwgc mrpu adz wuunwhc zda~n
hdgdtn hnoyz aromkb qujfv yjgmn tbf atw~n
uyvsv oaopjv uyvemxk ldpp tthe iisjk txr hebmd yxevukm rkziao znt~n
ypdr mnwuzvw acpg kzwz ywbn wcrr umrnlbe lkult ljify azyhu mgqoo~n
abmpl omsd xmyl mxyl mgoq kracrf ufm ppwi zpggh~n
uxfdpv jnm vvc vchunhl ubv ktj mxolsxz~n
fcja eci edzrb nlvksaw lhf ycohh tfztt xso ceub tyv~n
rkwtp tcmmvv kufg cxui hdamg suuaej fgku cvjlv~n
oldbgy riadoyo djsi wca zxoeq pmemqap aijxa~n
nyy ruxcosx xisqoz yny jvzfpbe tlfdiaj ybd jifatdl zuzv~n
kxwdz qvrvx svllp ergmme~n
swjfuv eronk favcxfm acptbh pnbjn ciqcrlt rgvdnlt icgahb~n
ddza xxfn use obqka bfzwjp gmf bld fyvde mxdfdl~n
ame bmxbyf ame bmxbyf~n
rdgby pyfog dybrg gdryb lpztd~n
sntg impd uxgxai naoalb ntnk xgix~n
oadpmqj oso criln izih oos~n
ouzjq gtl ito xefqt phnv ouzjq hoyjjj~n
mlp rboq lpm roqb whvp~n
tghcw ggshevw dzsgj ggshevw kec ggshevw~n
kmwhb kfcb mbhkw gemz fdh~n
euve veue kplrq evue~n
hikfiw bcdktj hcnawja gjasvwc vcht igrzly rkxijxe ikfwhi dvmp~n
hvksis kafs ktcs sfyqzyt etctrgt vodwr wff tskc juobnm~n
dpcsodn ehwc pglywfl yhdp mdiyzx~n
ibog umftejh cfm pnxhna wqwx yabnk ygws dqw~n
dezz tqw qism rarfe fpmlab xvbau irwtfs wwmoyss yvn xetqp xtqep~n
pchqwk npsmd jefec qok uuc ucnpz rlkakn~n
kudh rjysb xrdbx bkbmjfo xrdbx~n
rogu ssdwsus voa ncw obkxsr~n
tflf hlevus scq rrbpat tau wxsq wxoblt~n
rzr lex kqdy whtj ffnys xlgkkff msjhy dimaq hrc wyde qkwf~n
ghtwd wernjpn tdgwh olrfvmr edq gxvp~n
rjirvf skhdgln aauit bipu mubjiwp kowz gyjfbjx cmgdqs~n
aftfpbv agajyy aqjll vsf twh robpys lebt eav yribup~n
sby ymkla sxkbfwl awmd nhb vlp~n
kizvjj ycjswr jkzjiv vuy jijzkv jcs~n
cwvch xzqfal tephz lqfzax cnkbdcr mql zflaxq~n
jjxzwl himpra ssjf bibfiui seeaq pzse~n
jogrn jogrn sqew jogrn oixgwr~n
khonpyw iiyxir vybhc ndnxxv kzlt ipmncn~n
okqkqu svbemi nfn ovd xgwy edd ujet nrrbv dde vdo~n
jobvf dus asvio vaosi sovia~n
knmz qbz nkmz zmkn~n
isbmopr unduey impobrs hea zswciev sopbmri duuj~n
ocs ntgnrdu kbvtzp cvyieu fiyn znmh lhrz ixtnzrj vktbpz lbpqx vzkpbt~n
muduhc sabc dlyoisz kuaz ogpyepw yuog ictiiqt~n
xjflsf nfklvml thfh uajnmby cichyj xxoqi lpime bxpyx~n
riahifn bohbgd obhdgb jni qzvkf ybp hjkkwq ytutd cakcsh smfdoe tuytd~n
iddku nccp zgtl yne ppzpqcx lwm~n
refpcz uqt uqt uqt~n
mtn czxkagb nmt caqacrg bcakxgz~n
itxjii uethxbj vpds bsqod diqax inv zrwt doepe~n
bfyaj nbvhg zmi buf~n
dtre dkwdr nrapm qtfth odvt bbcnae vxuk gqm enlg~n
ybt qcfozrk yzrh bfp euuozuz pzsdkxx mhi nbkzprb~n
vpuhqn gyx caint antci vfep incat kqdakdx~n
ddhi chgnjk ibg xbemitr mjtdph eovw~n
ngbtuvq qdttlsg dbqhhwk bkrqze qdttlsg qdttlsg~n
evn smvhi dgcmn xjo ascc ahbpj uvzc pwn tung~n
ksu thr omg onvsqzz rllakar ysfjtfj grxwyx oawix gpk suk~n
qvb iouav yhtndkd vuoia ouaiv~n
kud kofcip hcczrgc cvvxxlk rvyamwe duthdzr dftun~n
rgv ynw gph tmxwfup nwy~n
dnc trawj kwzbx trawj zvp~n
ogqxijy tbqtsg tbo vqinnlq jbvgl sfafh rve mcxqs ubh~n
qccr lpv puuvdyb tydaflf uxic~n
tlon tbfwkxg tlon tlon~n
iytiz qjlqaqw uixb lnt zwro uzgxqfi gklgnqs zwgoidw iifk wkwdo~n
tmvhxw tmvhxw tmvhxw fhiqpjy ejk kvysd~n
cmphg xjjz groiccd dvetuk xbwa zhm lyi ohhd neg bxaw yil~n
kdmzopy lxx bvhach goxmxu qbqvzcm qbbrhvb nrfom aixmio grpxz hbrqbbv lkucih~n
bnqn phqr uycuxc mopyyfh bbpesqm stgigq stggqi cwtjm asqhpl imvlxj lbmloo~n
pws iuvbvjr cwccm qbr srqnstz cjebq~n
bfh jobkcy gtbroe lpagq icmax jobyck fbh~n
ounqdo qrrr pwi alho rrqr beao rsioepe~n
vrccqge qvcgrce cbslkjs qnclw rvmjkw~n
aaxjns deupjs wtgxtp penad depbho tbrdt depbho qxg zhjxpgd~n
drqfo kbp jfa jaf~n
izn oczcitj cpae quvzqo iwwk jck idjdpm~n
ecort zgcvxx bvh vrprsf~n
fhubfvy ndcfjo kol hyufbfv hvpka~n
kpt zgajpc rjvsxa gayznjd~n
xeoixk peq kfu lqa mjnv mzvh bicl hlfk~n
wyt imdx lksy twy~n
xeptp ilxs qbsqzwn rsy slxi xtpep dsdkekl~n
rotvbt fuirp elos ciu nhx bxej trmtx ixn xbpc vrxtma~n
skcprn yns sao ghlq vftezvc aaryahy telt~n
fkaov gexa xijv yiksa xega dhgw okfva gxxs edkecag mqbqvrm nrzcqub~n
ljc jujxeof fdj gdzjzr mabbktu pmyrfv uspven zxry snt hrah~n
nhujhdr jdhrnuh midm bbavhpp cpjk zmpbasz eptrpou znq zqn~n
ywzfq wuu lfflon uuw rke qzwyf hjbms gakx~n
yqrq zsk jzn uuuzrml kzs lseupsg waynfh blech~n
gwyqej weyjqg uwuje uujwe~n
lxud rnwkc bgygkh csq rfvtos ystqp keb gkakodj uthcce eqxifl~n
elvj evj rfwo vvgkosh aarcgjs utsbh orwf jxcqvmh uowmktl qtgf~n
bqszre oxntty ombwiz mbiwzo~n
ccp iilcc tacf czk giwv erqi jgdfah wip xtrzhv wosvbyb~n
gymyw rwsxeg gvydr izyk spsonkg knospsg~n
djj tbr tbr tbr ice~n
yyzh zkykapw puydtik ysxc hjumhsd cuhhw dnnhida yyzh lnklymg~n
nhbcxsu ccrbbyw scbxunh ghxrkqh brcwcyb~n
latdaav sexa ipzuzjl ayusb etb fshh~n
giz akqd vjmabii arfuzgv efrww jxkvolg efrww vrnzgbx~n
jmcc vqy adkzj fqrkdo tjrczp ccmj cfponk rptzjc~n
jsviu sraw imsj fujm cdf xwqhl lhz ojejzuy trtqblg~n
ibz dulm muoq quom etvjzxn tuhrpp jfukac jqctqn qhgbae msgmcit ludm~n
zgx bpfa elhp rnyqtq wyceube nkeuxz~n
lzxfo vygpecv jszacku zfxlo~n
cpmv ysaaj xnp wbvqg hrsiuj venjxna yeqvwmk ftaga dcqxc jgapb rqdixp~n
xpbbe tyn hfdlu fto wrgzkou sxylv cqto wdv xqc pnu rapk~n
pkrxypl wnu oipq tzbhnc gpug tgzf ofjb~n
mvaz bwcv gll itgcye dessw szt gzimgeu bvmohh wbywyhc kzerxbr anjsive~n
lhvnrzs qkmjwy pnyciwp mgp jfdz ghvtf yusfzg upab~n
xbscukx aubulj snbcmc uscxkbx ddpucyg~n
hgv ollh yzpjmpy fcicyae vhg gvh~n
prd onyd iux oik xui~n
zipadig nvewx cir lbpcusx dljqy~n
ifyxzsc btmy lsu tmyb lus ldyzx~n
egmyxbe ieasvek dylmj qahtatr uyqgbk~n
mejjczw spj vaekp kdud~n
vwan mgenld mnlged vpfuil euoxlr rclkpi dfknyoa rhthij kcyxl qaxab crlpik~n
pqm eihogk iwml nuauxi ngilkoh jmu mbdi cqxz nblb rmuj zczdgp~n
pswbe mtzch wbeps fxtnc psa aioff pas~n
prwrpvz oadpqvz tgzrt giom pjyihh rxdir dmya xjolzxv~n
khdybe obqkjn kdq jkvmgwo enpat wyw qjbnko waid msest wwkoyts~n
yep liv ofmtpod imdd qyw~n
afnrx jgn gxarpb myltj ggrsajy mdaobjo vbtn vbtn zlziz eds~n
hqr kqu oub skoeqk icnfm cqvld aay bto~n
rga odaf exoosh pwevx zpbd plaa xoseoh~n
mbr gqu oxvchrt nqa larxmjx pfozej~n
ozuo ywubjbg xcua eblwqp nfdvw hmhen zkjfu gmhgp bsyi ktprtf~n
src vrysby srybvy znwjm hmypwdl gdmau pqe~n
cldr crhi lbaq fbuduyn hygbz uhida~n
qrxukq dygkp oaks soka oask~n
vpido ajgfq pwlv hezt fmg epwrxo rqvjke iovpd hhkjm~n
anxf ydl xnfa hqph olorp~n
exydcg onxjm psqlbv ehz boar hze qsblpv~n
mnzrvc ipj swg ijp sgw gdkntsd fzz grqwly~n
erpq qghpj fay gci uglm afy~n
jwbq hbxaub jpdilyt yvalrlk topl qup~n
eczonk ftcc paltirb owz tihhe dglxory wthvqcb qdnxm lirejh alyxsr~n
ooruaby gboyeu lkv arrz jcqyzl uxlfk fhmeony fcmh~n
wzr xjb pwmf okqj adwcedy lkidve uwekxf asbdzr biub~n
dikhur pxgh urdinjh wednf ulzdxs~n
iplf byt tyt qnnlba pzt bednml ljjtkvo tjovlkj uwms xat~n
htzk ltmfha xikeze atfmhl fchxhyz~n
lqala bqwgcul vetaa xuxjau zcb wtdmomu wfqmpq sief uyblyz ahv~n
aytvvo awm ojaaigg awm dbfaokz~n
abq npcyld fzbfku oia qss jkxldm wgtmki pasgxi dieix rpqnuac tecnfy~n
nmr qzfj qjfz lsz vnahex~n
djxoo jzlkh svy xige~n
tjlkkg glcuvmh fwzlhi ecun qlgulj hrfhyql qgdlf ofakqdf zokkvm gelxkq oowgs~n
upfpk gfstjlv lxc rjd nhj sbq jpzsz zsjzp~n
favd nzqfdid nekfjsf mtjndu~n
sgdqx uvpuefv vhwrgd aivav gsqxd jdhfoq~n
llaf cthbgy njrpw fqgkx jzf xqkgf lnrfrm gkxqf~n
wzdwlc wisst alw kyjeur sjsqfcr tta bijnyn whfyoxl~n
dtjr baxkj lmnyrlg nrmyllg~n
mtgky xmwf zdko nnocxye gytkm ygp hixk xwmf~n
maudjy okgjga uadjmy dzfrk omd~n
azz ajdcqkd bcafn zaz dcjaqdk gylyzo~n
xzvfbf fopmfxu mvftgr mfupoxf coyhof talcc vpkslo".


DEFINE TEMP-TABLE ttWords NO-UNDO
    FIELD cWord AS CHARACTER
    FIELD cLetters AS CHARACTER
    INDEX ix IS PRIMARY cLetters.

DEFINE VARIABLE iPwd AS INTEGER     NO-UNDO.
DEFINE VARIABLE cPwd AS CHARACTER   NO-UNDO.
DEFINE VARIABLE iWord AS INTEGER     NO-UNDO.
DEFINE VARIABLE iSum AS INTEGER     NO-UNDO.
DEFINE VARIABLE cWord AS CHARACTER   NO-UNDO.
DEFINE VARIABLE lBad AS LOGICAL     NO-UNDO.
DEFINE VARIABLE cLetters AS CHARACTER   NO-UNDO.

FUNCTION orderLetters RETURNS CHARACTER (pcWord AS CHARACTER):
    DEFINE VARIABLE i AS INTEGER     NO-UNDO.
    DEFINE VARIABLE cResult AS CHARACTER   NO-UNDO.
    DEFINE VARIABLE cLetter AS CHARACTER   NO-UNDO.
    DEFINE VARIABLE cLetter2 AS CHARACTER   NO-UNDO.
    DEFINE VARIABLE cPrevResult AS CHARACTER   NO-UNDO.

    ASSIGN cPrevResult = pcWord cResult = pcWord.
    blk:
    DO WHILE TRUE:
        DO i = 1 TO LENGTH(pcWord) - 1:
            cLetter = SUBSTRING(cResult,i,1).
            cLetter2 = SUBSTRING(cResult,i + 1,1).
            IF cLetter > cLetter2 THEN DO:
                SUBSTRING(cResult,i,1) = cLetter2.
                SUBSTRING(cResult,i + 1,1) = cLetter.
            END.
        END.
        IF cPrevResult = cResult THEN LEAVE blk.
        cPrevResult = cResult.
    END.
    RETURN cResult.
END FUNCTION.

DO iPwd = 1 TO NUM-ENTRIES(cInput, "~n"):
    EMPTY TEMP-TABLE ttWords.
    lBad = NO.
    cPwd = ENTRY(iPwd, cInput, "~n").
    DO iWord = 1 TO NUM-ENTRIES(cPwd, " ").
        cWord = ENTRY(iWord, cPwd, " ").
        cLetters = orderLetters(cWord).
        IF NOT CAN-FIND(ttWords WHERE ttWords.cLetters = cLetters) THEN DO:
            CREATE ttWords.
            ASSIGN
                ttWords.cWord = cWord
                ttWords.cLetters = cLetters.
        END.
        ELSE DO:
            lBad = YES.
            LEAVE.
        END.
    END.
    IF NOT lBad THEN
        iSum = iSum + 1.
END.

MESSAGE iSum
    VIEW-AS ALERT-BOX INFO BUTTONS OK.