(system-cmd-fork "ml"  "-c" "(print 123) (sleep 1) (print \"aaa\")")