🚀 go-pugleaf

$@$3$s$K$A$ONS!wIY;NDL$G$9!#(J

perl$@$G$G$C$+$$O"A[G[Ns$r%U%!%$%k$K%;!<%V$7$F$"$H$G$H$j$@$7$F(J
$@;H$$$?$$$N$G$9$,8zN($N$h$$J}K!$O$J$$$G$7$g$&$+!#(J

$@$h$m$7$/$*4j$$$7$^$9!#(J


$@8=>u$O0J2<$N$h$&$K$7$F$^$9(J$@$,7k9=;~4V$r?)$&$b$N$G!#(J^^;


<$@=q$-9~;~(J>

print OUT join("\n",%assoc_array);


<$@FI$_=P$7;~(J>

while($key=<IN>) {
 chop $key;
 $value=<IN>; chop $value;
 $assoc_array{$key}=$value;
}


--
:'''''''''''''''''''''''''''''''''''''''''''''''':
: $@NS(J	$@7i(J	JE3SUF/1, JJ3YLW/1-ATR hamclub   :
:               (1975$@!A(J)  (1989$@!A(J)               :
:................................................: