#! /usr/bin/perl

while (<>) {
	s|<i>||g;
	s|</i>||g;
	s|<b>||g;
	s|</b>||g;
	s|<sup>(\w+)</sup>|{sup:$1}|g;
	print;
}