with FLTK;
with Adapad;


function Main return Integer is
begin
    Adapad.Show;
    return FLTK.Run;
end Main;