#!/usr/bin/env perl
use strict;
use warnings;
while (<STDIN>) {
chomp;
next unless m/px\(/i;
s/[^01]//g;
tr/01/ #/;
print $_, "\n";
}