#! /usr/bin/perl -w
use strict;
use vars qw( @U );

my @M = split '',  "Just another ";
my @I =split '', "Perl hacker,";
@U = reverse @M;
unshift( @U,
         split '',
         "pool egnarts" );
print godel( godel( sub{ "\n" },
                    \ @I ),
             \ @M )->();

sub godel
{
    my ($a, $l) = @_;
    return $a unless @$l;
    my $x = shift @$l;

    return escher( $x,
                   godel( $a, $l ) ) ;
}

sub escher
{
    my ($l, $m) = @_;

    return
        sub
        {
            $l = pop @U if @U;
            return $l . $m->();
        };
}