sub c{map{chr($_[0]+ord)}split'',$_[1]}