#!/usr/bin/perl -w

%ENV = qw(
	bin 42 perl 52 my    33 opt   26 lib  32 site 25 tmp 34 
	usr 22 var  62 local 36 other 44 misc 12 temp 45
);


@INC = (
	"./opt/usr/usr/tmp/opt",
	"/perl/lib/usr/usr/72",
	"/perl/lib/usr/tmp/bin",
	"/usr/misc/lib/usr/var/lib",
	"/my/54/other/bin",
	"./tmp/lib/usr/tmp/opt/misc/usr/opt/site",
	"/usr/usr/23/misc/usr/usr/lib/lib/usr/usr/var/usr",
	"/opt/usr/13/usr/usr/lib/local/24/temp",
	"/usr/usr/usr/usr/usr/usr/lib/lib/usr/usr/var/usr",
	"/usr/usr/usr/usr/tmp/bin/lib/usr/opt/usr/usr",
	"./site/local/site/lib",
	"/usr/usr/usr/var/usr/usr",
	"/site/tmp/temp/lib",
	"/usr/var/var/usr/usr",
	"/usr/66/usr/usr/site",
	"./usr/usr/tmp/other/lib/usr/opt/site",
	"/usr/usr/usr/usr/usr/usr/usr/misc/lib/var/usr",
	"/opt/opt/usr/64/other/temp",
	"/usr/usr/usr/usr/usr/usr/usr/misc/lib/var/usr/lib/usr/usr",
	"/usr/usr/usr/usr/tmp/lib/usr/opt/usr/usr/lib/usr/usr",
);



map  { $, = $_; map { $, =~ s/$_/$ENV{$_}/g } (keys %ENV); $_ = $,} @INC;
map  { s,^\.,$/, } @INC; map { $; = 101+int($_/5)+($_>14);
map  { s,/(\d)(\d),' 'x$1."\e[$;m".'#'x$2."\e[m",eg } $INC[$_] } (0..19);
@INC = ((join $/,@INC),$/);


eval { require "JAPH" };

die