@@ -80,3 +80,6 @@ time = mkForeign (FFun "idris_time" [] FInt)
80usleep : Int -> IO ()
80usleep : Int -> IO ()
81usleep i = mkForeign (FFun "usleep" [FInt] FUnit) i
81usleep i = mkForeign (FFun "usleep" [FInt] FUnit) i
83+system : String -> IO Int
84+system cmd = mkForeign (FFun "system" [FString] FInt) cmd