SubとFunctionの実装例