codegenTop (S.Extern name args) = do
  external double name fnargs
  where fnargs = toSig args
codegenTop (S.Extern name args) = do
  external double name fnargs
  where fnargs = toSig args
codegenTop (S.Extern name args) = do
  external double name fnargs
  where fnargs = toSig args