#!/usr/bin/perl
sub imagine {
		  &imagine(not exists $_{heaven});
		  not $us{below}{hell};
		  keys $us{above} == ($sky);
		  for $p (@people) { &imagine($p) and
					 $living{$p}{localtime}; }

		  &imagine(not @countries);
		  not $hard_to_do;
		  not(@kill or @die_for) and
		  not @religions;

		  for $p (@people) { &imagine($p) and
					 $peace{$living{$p}{life}}; }

		  &imagine(not @posessions);
		  $you_can = rand 1;
		  not($need{greed} or $need{hunger});
		  $man{brotherhood} = map {$_=>@man} @man;

		  for $p (@people) { &imagine($p)
					 and $share{$p} = map {$_=>1} @world; }
		  $dreamer{$self} and
		  keys(%dreamer)>1;
          $dreamer{$you}
		  and &live(@world) == &live($one);
}