use strict ; use warnings ; $_ = IO::Handle::getline (*STDIN ); @_ = split ( " ", $_); my (@ap ) = split ( " ", $_); my $i = 0; my $m = Lingua::Romana::Perligata::__lastelem__ ( @_); for $_ (Lingua::Romana::Perligata::__enlist__ ( 0, $m)) {print (STDOUT $_, " "); print (STDOUT $_, " ")} ; print (STDOUT "\n"); my (@b ); my $v ; for $v (Lingua::Romana::Perligata::__enlist__ ( 0, $m)) {print (STDOUT $v, " "); print (STDOUT $v, " "); $v = $v} ; print (STDOUT "\n"); for $_ (@_) {print (STDOUT $_, " ")} ; print (STDOUT "\n"); for $_ (@b) {print (STDOUT $_)}