data Maybe () where {
    Just : Int -> Maybe () ;
    Nothing : Maybe () ;
};

demoFunc x = case x of {
    Just y => y + 24;
    Nothing => 0;
};

main = demoFunc (Just 5) ;