(* let ch = open_out "output.js" in ) ( Printf.fprintf ch "%s" asm; flush ch; close_out ch; ) ( write assembly to file ) ( let _ = print_string "assembler"; Sys.command "nasm -f elf64 output.s -o output.o" in let _ = print_string " -> linker"; Sys.command "gcc -no-pie -nostartfiles output.o -o output.exe" in print_string " -> executable!\n"; flush stdout; let _ = Sys.command "node ./output.js" in *)