#!/usr/bin/perl -nl

if( $.==1 ) { $t=$_; next; }
($f,$op)=split(/,/);
$_=$t;
s/<f>/$f/g;
s/<op>/$op/g;
print;
