\define word4letter(letter) <$transclude tiddler=$letter$.jpg mode="inline"/>
\define popoff(word)
<$list filter="A B C D E F" variable="letter">
<$list filter="[[$word$]] +[removeprefix<letter>]" variable="remnant">
<$macrocall $name="word4letter" letter=<<letter>>/><$macrocall $name="popoff" word=<<remnant>>/>
</$list>
</$list>
\end
\define .sign(word) <$macrocall $name="popoff" word="$word$"/>
<<.sign "BED">>Link at bottom of tiddler for custom/ downloaded / non Google fonts.