Heh. I've done that, too, for the 'Deutsche Mark' or 'Deutschmark'. :)
It was as some sort of revenge to my IT-Teacher who showed us how to write a DM<>Euro-Converter in GW-Basic. What a sick language it is...

Just in case somebody is interested in my small converter:

print"Betrag? ";die"=",.01*int($$=<>)*
195.6," DM\n=",.01*int$$/.01956," E\n"
[download]

$§=lc(sub{}^" \6 \n");$§=~s/\(.*\)//;for(split ('',$§)){$/=$_;for(5..7){$/++}$:.=$/}print$:;1