data Maybe () where
    Just : Int -> Maybe () 
    Nothing : Maybe () 

demoFunc x = case x of
    Just x => x + 24
    Nothing => 0

main = demoFunc Nothing