nunary :: ArithTy -> String
     -> Operand -> Codegen Operand
nunary ty name x = do
  nx <- unbox (FArith ty) x
  nr <- inst $ simpleCall name [nx]
  box (FArith ty) nr
nunary :: ArithTy -> String
     -> Operand -> Codegen Operand
nunary ty name x = do
  nx <- unbox (FArith ty) x
  nr <- inst $ simpleCall name [nx]
  box (FArith ty) nr
nunary ty name x = do
  nx <- unbox (FArith ty) x
  nr <- inst $ simpleCall name [nx]
  box (FArith ty) nr