(let ((p (start-process "bc" (current-buffer) "bc")))
  (process-send-string p "2^10\n")
  (goto-char (point-max)))