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