#!/usr/bin/perl
# Convert xpm to text - Don Yang (uguu.org)
#
# 08/30/02

while(<STDIN>)
{
   last if /pixels/;
}

while(<STDIN>)
{
   last unless /(")(.*?)(\s*")/;
   ($i = $2) =~ s/\S/X/g;
   print $i, "\n";
}