Reading xkcd for many years, I never expected Randall to write about Forth, but he did - awesome :D

Below is one possible implementation of ❤. It takes two c-addr/len strings, outputs the lower one first (hence the 2swap), followed by the heart and the 2nd string. To get closer to the image, we define the strings as constants.

: ❤ ( c-addr1 n1 caddr2 n2 -- ) 2swap type ."  ❤ "type ;
s" We" 2constant We
s" xkcd/Randall Munroe" 2constant xkcd
We xkcd ❤
output:
We ❤ xkcd/Randall Munroe

Note, that FORTH I ❤ would allow us to get rid of the 2swap. Static objects should be closer towards the top of the stack. Then again, Randall's version is perfect for many people to love Forth, as Forth stays on top - how wonderful ❤.

- Gerald Wodni