Select Code to Download

#! perl -slw
use strict;
...
a;c;h;i;
a;c;h;j;
a;d;

C:\test>815486
{
...

((e,f)b,(g,(i,j)h)c,d)a