: add ( a b -- c ) double { double double } "cdecl" [ XMM0 XMM1 ADDPD ] alien-assembly ;