#!/usr/bin/perl -w
use strict;
use warnings;

my $indent_prev;
while (defined (my $line = <STDIN>)) {
	chomp $line;
	my ($tabs, $spaces, $rest, $colon) = /^(\t*)( *)(.*?)(\s*)$/;
	my @words = split /\s+/, $rest;
	my $indent = length($tabs);
	my $cont = 
}