Idris2/tests/node/node008/Nat.idr
2020-06-12 21:35:08 +01:00

12 lines
149 B
Idris

myS : Nat -> Nat
myS n = S n
myS_crash : Nat -> Nat
myS_crash = S
main : IO ()
main = do
printLn (S Z)
printLn (myS Z)
printLn (myS_crash Z)