with

    FLTK,
    Adapad;


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