#CLASS {Spec|Tattoos}
#VAR Cur_Tattoo {}
#VAR Firefly {yellowink}
#VAR Moss {yellowink|blueink|redink}
#VAR Feather {blueink|blueink|redink}
#VAR Shield {redink|redink|greenink}
#VAR Mindseye {greenink|blueink|blueink}
#VAR Hammer {redink|redink|purpleink}
#VAR Cloak {blueink|blueink|blueink}
#VAR Bell {blueink|blueink|blueink|redink|redink}
#VAR Crystal {greenink|yellowink|purpleink}
#VAR Moon {redink|blueink|yellowink}
#VAR Starburst {blueink}
#VAR Boar {purpleink|redink|redink}
#VAR Web {greenink|yellowink}
#VAR Tentacle {greenink|greenink|purpleink}
#VAR Hourglass {yellowink|blueink}
#VAR Owl {blueink|redink|redink|purpleink}
#VAR Brazier {yellowink|yellowink|redink|redink}
#VAR Prism {redink|blueink|yellowink|greenink|purpleink}
#VAR Tree {greenink|greenink|greenink|greenink|greenink}
#VAR Mountain {greenink|blueink|goldink}
#VAR Chameleon {goldink|purpleink|yellowink}
#ALIAS INK($tat,$on,$side,$part,$of,$who) {Cur_Tattoo=$tat;#FORALL %expand(@%expand(@Cur_Tattoo)) {outc %i};#IF ($who) {~INK $tat on $side $part of $who} {~INK $tat on $side of $of}}
#CLASS 0