This is my (oh !!) first JAPH.
I'm a little newbie at this place, but I hope that is not too bad :)
Please, comment !

` &p(qw(Ju));$x=
$/;$|=$$;$,=$/;$\=$!;
sub T{eval$_[0]};sub su{T
q%sel%.q +ect *a,*
a,*+.'a, .06';}sub
p{T(q;p;. q 5ri5.q
qntq)for @_}map{p
('u');& su;}(1..
17);sub s{+$_[0]
};&s(&su );$a='rl'
;$\=$x;&s(&p("st"));$\=$!;&s
(&su);sub r($;){+p($_[0]
)};p(q-A-);sub z{$\=$/?$;:
$,;$,=$;;su();map{&s(p('a'));&
s(su);}@_};z((1..7));$,=$x;$\=$,
;$"=$\;$,=$/; $_=q!!;s;;;;
p(q qnoq.q rthe\rr);$\
=$/?$;:$,;$ ,=$;;;;su();
r "P";map{r "e";&s||&su;
}(1..42);$\ =$;;&s(p($a)
);T(T(su())); r $/;r "H";$\
=$/?$;:$,;$/=$,;z(1..12);$,=$\;$\
=$/;$a=~s/(.)l//;p(q tcket.$1
);&s(p($"));$e='Felicien';
#MYFIRSTJAPH
`