$ENTRY Go {
    = <Prout <LCS ('thisisatest') 'testing123testing'>>;
};

LCS {
    (e.X) e.L e.X e.R = e.X;
    ()    e.Y         = ;
    e.X   e.Y, e.X: (s.L e.XL),
               e.X: (e.XR s.R)
        = <Longest (<LCS (e.XL) e.Y>) <LCS (e.XR) e.Y>>;
};

Longest {
    (e.X) e.Y, <Lenw e.X>: s.LX e.X2,
               <Lenw e.Y>: s.LY e.Y2,
               <Compare s.LX s.LY>: '+' = e.X;
    (e.X) e.Y = e.Y;
};