#!/usr/bin/perl

while(<STDIN>) {
	s/\x1b[^m]*.//g;
	print;
}
