ΑZ
Size: a a a
ΑZ
AN
ΑZ
s
AN
ΑZ
runtimeDiv : IO ()
runtimeDiv = do
aStr <- getLine
let a = the Int (cast aStr)
bStr <- getLine
let b = the Int (cast aStr)
case decEq b 0 of
(Yes prf) => putStrLn "Cannot divide by zero"
(No contra) => print $ div a bAN
ΑZ
ΑZ
s
AN
B
AN
ΑZ
ΑZ
ΑZ
ΑZ
ΑZ
ΑZ
ΑZ