use strict;
    use warnings;
    $_ = Lingua::Romana::Perligata::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 $ap[$v], " " );
        $b[$v] = $ap[$v];
    }
    print( STDOUT "\n" );
    for $_ (@_) { print( STDOUT $_, " " ) }
    print( STDOUT "\n" );
    for $_ (@b) { print( STDOUT $_ ) }