#!/usr/local/bin/perl

# $Id: tbm2pbm,v 1.3 1997/10/25 13:44:46 czyborra Exp $

@B=<>; 

print
    "P1 ",  length($B[0])-1, " ",  $#B+1, "\n", 
    grep (y/-#/01/, @B);