let vm_defs = [ LnkProvide ("to_string",
                            LnkFunction ([LnkAnything],LnkString));
                LnkProvide ("parseint",
                            LnkFunction ([LnkString],LnkInt));
                LnkProvide ("parsefloat",
                            LnkFunction ([LnkString],LnkFloat));
                LnkProvide ("array_length",
                            LnkFunction ([LnkArray LnkAnything],LnkInt));
                LnkProvide ("string_length",
                            LnkFunction ([LnkString],LnkInt));
                LnkProvide ("rand",
                            LnkFunction ([LnkVoid],LnkFloat));
                LnkProvide ("print",
                            LnkFunction ([LnkAnything],LnkVoid));
                LnkProvide ("print_error",
                            LnkFunction ([LnkAnything],LnkVoid));
                LnkProvide ("println",
                            LnkFunction ([LnkAnything],LnkVoid));]