|
while curr->nxt <> NULL
if length(curr->word) > 68 then word = crunch( curr->word ) else goto nextword
currj = head
while currj->nxt <> NULL
wend</lang>
{{out}}
<pre>barbarian ---> brain
{{incorrect|FreeBASIC|"over 4" aka "length 5 or more"}}
twomblychildbear ---> tobycider▼There are 210 solutions. I will give the first and last ten.
<pre>ablutioncorrigenda ---> altocried
agnosticgargantuan ---> ansigrata
allegraheaddress ---> algahades
allusionpalladian ---> alsoplain
alluvialpropionate ---> alvapoint
ambientsalvation ---> abetslain
ammermansiltation ---> amraslain
annetteslingshot ---> antesight
ariadnestatuette ---> aidesaute
ballastsupersede ---> blatspree
weekendsupervene ---> weedspree▼<SNIP>
twiddleterminable ---> tidetrial</pre>
whatnot ---> want
where'd ---> weed
whether ---> wehr
whipple ---> wipe
whitney ---> winy
wrangle ---> wage
wrigley ---> wily</pre>
=={{header|Phix}}==
|