#
# $Id$
# $Source$
# $Author$
#
use strict;
$^W=1;

while (<>)
{
    s/\r?\n//;
    if (m/^(~...) (.*)$/)
    {
	my $toggle = $1;
	my $data = $2;
	print "$toggle", "_\t", length($data), "\n";
    }
    elsif (m/\233/)
    {
	print "memo\n";
    }
}