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

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

main = demoFunc (Just 5) ;