#!/usr/local/bin/perl

## Mark verbs as fullform and baseform

use strict;
use warnings;

my $fileName = shift;
open(IFILE,"<:encoding(utf-8)",$fileName) or die("Couldn't open the file $fileName\n");
while(<IFILE>){
	chomp;
	unless(/^(.+)::(.+) \|: \[\"(.+)\"\] -> \[\"(.+)\"\]$/){
		print $_,"\n";
		next;
	}
	my $urd = $3;
	my $form = '';
	if($3 =~ /"/ || $4 =~ /"/ || $1 !~ /^V$/ || $urd !~ /\x{0646}\x{0627}$/){
		$form = "(*fullform*)";
	}
	else{
		$form = "(*baseform*)";
	}
	print $_,"\n";
	<IFILE>;
	print "(\n\t(*fullform*)\n";
}
close IFILE;