#The first script conjugates a verb in present simple#


@pronouns_ending=("i","you","he/she/it","we","you","they","","","","s","","");
print"Give a verb to be conjugated in present simple :\n\nVerb:\t";
$verb=<<>>;
split $verb;
print "\n";
for($i++;$i<4;){
	print pop(@pronouns_endings)." ".$verb-3.shift(@pronouns_endings)."\n";