#!/usr/local/bin/perl
#
# Strip escape sequences from PARI log file.
#
while(<>)
{
  s/
[^]*//og;
  s/\[[0-9;]*m//og;
  print;
}