: wordlist ( -- seq )
"https://projecteuler.net/project/resources/p098_words.txt"
- "p098_words.txt" temp-file [ ?download-to ] keep
+ "p098_words.txt" temp-file download-to
utf8 file-contents "," split [ rest-slice but-last ] map ;
: squarelist ( n -- seq )