Yuji Noizumi's blog

皇紀2686年7月6日

｢骨太ショック｣国債揺らす　長期金利3%視野、財政リスクに市場警鐘 – 日本経済新聞

日本の債券市場が動揺している。長期金利は節目の3%が視野に入る。「経済財政運営と改革の基本方針（骨太の方針）」の原案をきっかけに、積極財政に傾く高市早苗政権へ市場が警鐘を鳴らしている。

情報源: ｢骨太ショック｣国債揺らす　長期金利3%視野、財政リスクに市場警鐘 – 日本経済新聞

まーたはじまった。

日銀が「これから金利を上げて上げて上げまくってやる」と言ってるのが原因に決まってんだろ。

日経は、財務省に言われて書いてるんだろうけど、ゼロ金利の時は、日銀が国債を買い占めて、金利ゼロに誘導できていたのだから、金利が上がるという事は日銀が金利が上がるように誘導してるからに他ならない。

金利を上げると、高市政権の財政投資効果が無効化され、景気が悪くなるので、高市政権の経済政策を失敗させて、財務省が早期退陣に追い込もうとしてるんだろうな。

皇紀2686年7月6日2026年7月6日

永久不滅ポイントの使いみち

永久不滅ポイントが3,880ポイントあるが、支払い充当だと還元率0.45%だし、損した気分になるので、還元率良いものは無いかと調べてみた。

アマゾンギフトカードに交換なら、永久不滅ポイント5,000ポイントで25,000円分だから、0.5%で、支払い充当よりは結構良さそう。

しかし、5,000ポイントに1,120ポイント足らない。

そういや、暫くポイント使う予定が無かったので、ポイント運用に1,005ポイントぶっ込んで放置してたんだった。

これで、5,000ポイント達成できるな。 🙂

皇紀2686年7月1日

【Ubuntu24.04】会社のPCがローレゾ、マルチディスプレイ不可になる。

会社で、PCを起動したら、低解像度でマルチディスプレイ不可になっていた。NVIDIA GeForce GT 640なので、

# apt install nvidia-driver-470-server

とやって、再起動したら復帰したけど、Ubuntuって時折、起動時にnvidiaのドライバーが無効にされてる事があるんだよなあ。

皇紀2686年6月26日2026年6月26日

【原神】サブアカ

さすが上様。

マルチのイベントこなす為にサブアカを頑張ってレベル上げしてるけど、そういや仔竜に上様の名前をつけたんだった(笑)

非課金でやってるので、ほぼ配布キャラのみでかなりキツいけど、マーヴィカ復刻ガチャでようやく引けて、かなり楽になった。

冒険ランク突破・二が時間切れでクリアできなかったけど、マーヴィカ育てたらいけそうな予感。

皇紀2686年6月25日

年金任意加入

もうじき還暦だが、国民年金の学生特例で、国民年保険料を収めていなかったので、納めた期間が満額貰える480ヶ月に満たない。

60歳から、国民年金任意加入により、480ヶ月に足らない分を納める事ができるので、それで満額納めると、112,760円/年アップする。

追加で納めなければいけない額が102万円だが、それで年11万アップするので、年率11%の利回りという事になる。

102万円を株式投資で無理して運用して、5%の配当利回りだったとしても、51,000円/年にしかならないので、これは任意加入した方が得だな。

ただ、追加で支払う年金保険料102万円を取り戻すのに、9年ほどかかるので、74歳までに死んだら損する事になるが、どうせ年率11%の利回りなんて叩き出せないから誕生日来たら任意加入しよう。

皇紀2686年6月20日

【原神】トワリン秒殺……

前は散々苦労して倒してたのに、今だと秒殺だよ。

本来なら、足に何度かダメージ与えて、龍がダウンしたら、首をよじ登って攻撃当ててゲージを削るってのがセオリーなんだけど、チャスカが居たらスキルで飛行して、当てるだけ。

なんか申し訳なくなるわ。

皇紀2686年6月19日

BIC SIM(iijmio)の通信状況

わしの携帯電話通信代は、BIC SIM(iijmio)のギガプランeSIM 2GBで月額440円。物理SIMだと740円/月だが、eSIMにするだけで300円/月OFFになる。

わしの携帯のREDMAGIC 10 ProはeSIMに対応していないが、eSIM.meというeSIMのプロファイルを書き込める物理SIMカードを使ってeSIM対応にしている。

BIC SIMは、契約特典としてギガぞうWi-Fiスマホプラン月額200円が無料(契約1年継続でスタンダードプラン500円に昇格)となっていて、入った当時は駅で使えて便利だった。

しかし、今年になってから、駅のアクセスポイント(AP)は設備更新費用負担増の為廃止という無常なお知らせがあり、使えなくなったので、月2GBのデータ容量を減らす事ができなくなった。

ギガプランでは、高速通信ON/OFFという機能があって、ONの時はLTEの速度で、低速時には300kbps(3日間で366MB超えると通信規制)で通信できる。

povoなどは無課金では128kbpsで、radikoを聴くのはちょっと厳しいが、300kbpsなら問題なく聴けるので、これは大きなアドバンテージ。

暫く使ってみたが、通勤中にradiko聞きながら、電車に乗ったら高速通信ONにして、会社に着いたら高速通信OFFってのを続けるというルーティーンを暫く続けた通信状況が先に挙げたものである。

3日間で366MB超えてないし、ギガぞうWi-FIが無くても何とかなるのが分かった。家と会社でネット使い放題なら、月2GBで十分ですな。 🙂

皇紀2686年6月17日2026年6月25日

XSERVER API DDNSモドキIPv6対応

家のサーバーのIPv6のIPアドレスをDNSに登録した。
DNSに問い合わせれば、家のサーバーのIPv6アドレスが分かる。

Name:	silverfox.noizumi.org
Address: 183.76.197.88
Name:	silverfox.noizumi.org
Address: 2405:6587:c200:7500:6c7b:5eff:feac:7a1

Name: silverfox.noizumi.org

Address: 183.76.197.88

Name: silverfox.noizumi.org

Address: 2405:6587:c200:7500:6c7b:5eff:feac:7a1

IPv6のアドレスは、半固定だからIPv4みたいに変わってしまう事を余り考慮しなくて良いという認識だったが、家のルーターのIPv6のフィルター見てみると、IPv6のアドレスが変わっていた。

端末のIPv6アドレスはルーターの再起動などで変わってしまうので、その度にルーターの設定を変更しないといけないが、そういう面倒を避けるには、メーカー曰く、プロバイダに固定IPなどの契約をしてくださいとの事。

でもまあ、IPv6で接続不能になっていても、IPv4で家のルーターに接続して設定変更すれば、一応、IPv6で通信できるようになるから、プロバイダに固定IPの課金はしない 🙂

<?php
/*
 * ipcheck.php
 * 
 */

$api_key = '[APIキー]';
$server_id = 'xsvx1023505';
$servername = $server_id.'.xsrv.jp';
$api_base_url = 'https://api.xserver.ne.jp';
$api_base_url .= '/v1/server/'.$servername;

$target = 'silverfox';
$domain = 'noizumi.org';

$url_ip_prog = 'https://irc.noizumi.org/cgi-bin/ip.py';

/**
 * DNSレコード全部を取得する
 * @global string $api_key
 * @global string $api_base_url
 * @return array
 */
function getDNSRecord(){
    global $api_key;
    global $api_base_url;

    $headers = array(
        'Content-Type: application/json',
        'Authorization: Bearer '.$api_key
    );

    $ch = curl_init();

    //curl_setopt($ch, CURLOPT_IPRESOLVE, CURL_IPRESOLVE_V4); // IPv4 Only.
    curl_setopt($ch, CURLOPT_CUSTOMREQUEST, 'GET');
    curl_setopt($ch, CURLOPT_RETURNTRANSFER, true);
    curl_setopt($ch, CURLOPT_HTTPHEADER, $headers);
    curl_setopt($ch, CURLOPT_FOLLOWLOCATION, true); // HTTPレスポンス 30x を追跡する。
    curl_setopt($ch, CURLOPT_HEADER, false);

    $command = '/dns';
    curl_setopt($ch, CURLOPT_URL, $api_base_url.$command);

    $output = curl_exec($ch);
    $httpcode = curl_getinfo($ch, CURLINFO_RESPONSE_CODE);

    curl_close($ch);
    return json_decode($output, true);
}
/**
 * DNSレコードを更新する
 * @global string $api_base_url
 * @global string $api_key
 * @param string $dns_id
 * @param array $params
 */
function setDNS($dns_id, $params){
    global $api_base_url;
    global $api_key;

    $fields = json_encode($params);

    $headers = array(
        'Content-Type: application/json',
        'Content-Length: ' . strlen($fields),
        'Authorization: Bearer '.$api_key
    );

    $ch = curl_init();

    curl_setopt($ch, CURLOPT_CUSTOMREQUEST, 'PUT');
    curl_setopt($ch, CURLOPT_RETURNTRANSFER, true);
    curl_setopt($ch, CURLOPT_POSTFIELDS, $fields);
    curl_setopt($ch, CURLOPT_HTTPHEADER, $headers);
    curl_setopt($ch, CURLOPT_FOLLOWLOCATION, true); // HTTPレスポンス 30x を追跡する。
    curl_setopt($ch, CURLOPT_HEADER, false);

    $command = '/dns/'.$dns_id;
    curl_setopt($ch, CURLOPT_URL, $api_base_url.$command);

    $output = curl_exec($ch);
    $httpcode = curl_getinfo($ch, CURLINFO_RESPONSE_CODE);

    curl_close($ch);
    
}

// DNS一覧から変更するレコードのIDと設定値を取り出す。
// ※事前にDNSレコードは登録しておく。
$dns_record = getDNSRecord();
$ipv4_done=false;
$ipv6_done=false;
foreach($dns_record['records'] as $index=>$rec){
    // ホスト名に合致し、IPv4のレコードなら処理する。
    if(strpos($rec['host'], $target)!==false && $rec['type']=='A' && !$ipv4_done){
        $dns_id4 = $rec['id'];
        $hosts4 = $rec['content'];
        $ipv4_done=true;
    }
    // ホスト名に合致し、IPv6のレコードなら処理する。
    if(strpos($rec['host'], $target)!==false && $rec['type']=='AAAA' && !$ipv6_done){
        $dns_id6 = $rec['id'];
        $hosts6 = $rec['content'];
        $ipv6_done=true;
    }
    if($ipv4_done && $ipv6_done){
        break;
    }
}

// IPv4を明示的に指定して接続するコンテキストを作成
$context4 = stream_context_create([
    'socket' => [
        // IPv4アドレスでバインドする（通常は0.0.0.0:0）
        'bindto' => '0.0.0.0:0',
    ],
]);
// IPv4でサイトにアクセスしてIPアドレスを得る
$response4 = file_get_contents($url_ip_prog, false, $context4);
if(preg_match('/Your IP address is ([0-9.]*)/', $response4, $matches)){
    $myip = $matches[1];
    if(!empty($hosts4) && $myip != $hosts4){
        $params = array(
            'domain' => $domain,
            'host' => $target,
            'type' => 'A',
            'content'  => $myip
        ); 
        setDNS($dns_id4, $params);
    }
}

// IPv6を明示的に指定して接続するコンテキストを作成
$context6 = stream_context_create([
    'socket' => [
        // IPv6アドレスでバインドする（通常は[::]:0）
        'bindto' => '[::]:0',
    ],
]);
// IPv6でサイトにアクセスしてIPアドレスを得る
// ※IPv4環境だと、IPv4のIPアドレスが返ってくるので、IPv6のパターンにマッチした時だけ登録する。
$response6 = file_get_contents($url_ip_prog, false, $context6);
if(preg_match('/Your IP address is ((([0-9a-f]{1,4}:){7}([0-9a-f]{1,4}|:))|(([0-9a-f]{1,4}:){6}(:[0-9a-f]{1,4}|((25[0-5]|2[0-4]\d|1\d\d|[1-9]?\d)(\.(25[0-5]|2[0-4]\d|1\d\d|[1-9]?\d)){3})|:))|(([0-9a-f]{1,4}:){5}(((:[0-9a-f]{1,4}){1,2})|:((25[0-5]|2[0-4]\d|1\d\d|[1-9]?\d)(\.(25[0-5]|2[0-4]\d|1\d\d|[1-9]?\d)){3})|:))|(([0-9a-f]{1,4}:){4}(((:[0-9a-f]{1,4}){1,3})|((:[0-9a-f]{1,4})?:((25[0-5]|2[0-4]\d|1\d\d|[1-9]?\d)(\.(25[0-5]|2[0-4]\d|1\d\d|[1-9]?\d)){3}))|:))|(([0-9a-f]{1,4}:){3}(((:[0-9a-f]{1,4}){1,4})|((:[0-9a-f]{1,4}){0,2}:((25[0-5]|2[0-4]\d|1\d\d|[1-9]?\d)(\.(25[0-5]|2[0-4]\d|1\d\d|[1-9]?\d)){3}))|:))|(([0-9a-f]{1,4}:){2}(((:[0-9a-f]{1,4}){1,5})|((:[0-9a-f]{1,4}){0,3}:((25[0-5]|2[0-4]\d|1\d\d|[1-9]?\d)(\.(25[0-5]|2[0-4]\d|1\d\d|[1-9]?\d)){3}))|:))|(([0-9a-f]{1,4}:){1}(((:[0-9a-f]{1,4}){1,6})|((:[0-9a-f]{1,4}){0,4}:((25[0-5]|2[0-4]\d|1\d\d|[1-9]?\d)(\.(25[0-5]|2[0-4]\d|1\d\d|[1-9]?\d)){3}))|:))|(:(((:[0-9a-f]{1,4}){1,7})|((:[0-9a-f]{1,4}){0,5}:((25[0-5]|2[0-4]\d|1\d\d|[1-9]?\d)(\.(25[0-5]|2[0-4]\d|1\d\d|[1-9]?\d)){3}))|:)))(%.+)?\s*$/', $response6, $matches)){
    $myip = $matches[1];
    if(!empty($hosts6) && $myip != $hosts6){
        $params = array(
            'domain' => $domain,
            'host' => $target,
            'type' => 'AAAA',
            'content'  => $myip
        ); 
        setDNS($dns_id6, $params);
    }
}
?>

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

140

141

142

143

144

145

146

147

148

149

150

151

152

153

154

155

156

<?php

* ipcheck.php

$api_key = '[APIキー]';

$server_id = 'xsvx1023505';

$servername = $server_id.'.xsrv.jp';

$api_base_url = 'https://api.xserver.ne.jp';

$api_base_url .= '/v1/server/'.$servername;

$target = 'silverfox';

$domain = 'noizumi.org';

$url_ip_prog = 'https://irc.noizumi.org/cgi-bin/ip.py';

/**

* DNSレコード全部を取得する

* @global string $api_key

* @global string $api_base_url

* @return array

function getDNSRecord(){

global $api_key;

global $api_base_url;

$headers = array(

'Content-Type: application/json',

'Authorization: Bearer '.$api_key

);

$ch = curl_init();

//curl_setopt($ch, CURLOPT_IPRESOLVE, CURL_IPRESOLVE_V4); // IPv4 Only.

curl_setopt($ch, CURLOPT_CUSTOMREQUEST, 'GET');

curl_setopt($ch, CURLOPT_RETURNTRANSFER, true);

curl_setopt($ch, CURLOPT_HTTPHEADER, $headers);

curl_setopt($ch, CURLOPT_FOLLOWLOCATION, true); // HTTPレスポンス 30x を追跡する。

curl_setopt($ch, CURLOPT_HEADER, false);

$command = '/dns';

curl_setopt($ch, CURLOPT_URL, $api_base_url.$command);

$output = curl_exec($ch);

$httpcode = curl_getinfo($ch, CURLINFO_RESPONSE_CODE);

curl_close($ch);

return json_decode($output, true);

}

/**

* DNSレコードを更新する

* @global string $api_base_url

* @global string $api_key

* @param string $dns_id

* @param array $params

function setDNS($dns_id, $params){

global $api_base_url;

global $api_key;

$fields = json_encode($params);

$headers = array(

'Content-Type: application/json',

'Content-Length: ' . strlen($fields),

'Authorization: Bearer '.$api_key

);

$ch = curl_init();

curl_setopt($ch, CURLOPT_CUSTOMREQUEST, 'PUT');

curl_setopt($ch, CURLOPT_RETURNTRANSFER, true);

curl_setopt($ch, CURLOPT_POSTFIELDS, $fields);

curl_setopt($ch, CURLOPT_HTTPHEADER, $headers);

curl_setopt($ch, CURLOPT_FOLLOWLOCATION, true); // HTTPレスポンス 30x を追跡する。

curl_setopt($ch, CURLOPT_HEADER, false);

$command = '/dns/'.$dns_id;

curl_setopt($ch, CURLOPT_URL, $api_base_url.$command);

$output = curl_exec($ch);

$httpcode = curl_getinfo($ch, CURLINFO_RESPONSE_CODE);

curl_close($ch);

}

// DNS一覧から変更するレコードのIDと設定値を取り出す。

// ※事前にDNSレコードは登録しておく。

$dns_record = getDNSRecord();

$ipv4_done=false;

$ipv6_done=false;

foreach($dns_record['records'] as $index=>$rec){

// ホスト名に合致し、IPv4のレコードなら処理する。

if(strpos($rec['host'], $target)!==false && $rec['type']=='A' && !$ipv4_done){

$dns_id4 = $rec['id'];

$hosts4 = $rec['content'];

$ipv4_done=true;

}

// ホスト名に合致し、IPv6のレコードなら処理する。

if(strpos($rec['host'], $target)!==false && $rec['type']=='AAAA' && !$ipv6_done){

$dns_id6 = $rec['id'];

$hosts6 = $rec['content'];

$ipv6_done=true;

}

if($ipv4_done && $ipv6_done){

break;

}

// IPv4を明示的に指定して接続するコンテキストを作成

$context4 = stream_context_create([

'socket' => [

// IPv4アドレスでバインドする（通常は0.0.0.0:0）

'bindto' => '0.0.0.0:0',

]);

// IPv4でサイトにアクセスしてIPアドレスを得る

$response4 = file_get_contents($url_ip_prog, false, $context4);

if(preg_match('/Your IP address is ([0-9.]*)/', $response4, $matches)){

$myip = $matches[1];

if(!empty($hosts4) && $myip != $hosts4){

$params = array(

'domain' => $domain,

'host' => $target,

'type' => 'A',

'content' => $myip

);

setDNS($dns_id4, $params);

}

// IPv6を明示的に指定して接続するコンテキストを作成

$context6 = stream_context_create([

'socket' => [

// IPv6アドレスでバインドする（通常は[::]:0）

'bindto' => '[::]:0',

]);

// IPv6でサイトにアクセスしてIPアドレスを得る

// ※IPv4環境だと、IPv4のIPアドレスが返ってくるので、IPv6のパターンにマッチした時だけ登録する。

$response6 = file_get_contents($url_ip_prog, false, $context6);

if(preg_match('/Your IP address is ((([0-9a-f]{1,4}:){7}([0-9a-f]{1,4}|:))|(([0-9a-f]{1,4}:){6}(:[0-9a-f]{1,4}|((25[0-5]|2[0-4]\d|1\d\d|[1-9]?\d)(\.(25[0-5]|2[0-4]\d|1\d\d|[1-9]?\d)){3})|:))|(([0-9a-f]{1,4}:){5}(((:[0-9a-f]{1,4}){1,2})|:((25[0-5]|2[0-4]\d|1\d\d|[1-9]?\d)(\.(25[0-5]|2[0-4]\d|1\d\d|[1-9]?\d)){3})|:))|(([0-9a-f]{1,4}:){4}(((:[0-9a-f]{1,4}){1,3})|((:[0-9a-f]{1,4})?:((25[0-5]|2[0-4]\d|1\d\d|[1-9]?\d)(\.(25[0-5]|2[0-4]\d|1\d\d|[1-9]?\d)){3}))|:))|(([0-9a-f]{1,4}:){3}(((:[0-9a-f]{1,4}){1,4})|((:[0-9a-f]{1,4}){0,2}:((25[0-5]|2[0-4]\d|1\d\d|[1-9]?\d)(\.(25[0-5]|2[0-4]\d|1\d\d|[1-9]?\d)){3}))|:))|(([0-9a-f]{1,4}:){2}(((:[0-9a-f]{1,4}){1,5})|((:[0-9a-f]{1,4}){0,3}:((25[0-5]|2[0-4]\d|1\d\d|[1-9]?\d)(\.(25[0-5]|2[0-4]\d|1\d\d|[1-9]?\d)){3}))|:))|(([0-9a-f]{1,4}:){1}(((:[0-9a-f]{1,4}){1,6})|((:[0-9a-f]{1,4}){0,4}:((25[0-5]|2[0-4]\d|1\d\d|[1-9]?\d)(\.(25[0-5]|2[0-4]\d|1\d\d|[1-9]?\d)){3}))|:))|(:(((:[0-9a-f]{1,4}){1,7})|((:[0-9a-f]{1,4}){0,5}:((25[0-5]|2[0-4]\d|1\d\d|[1-9]?\d)(\.(25[0-5]|2[0-4]\d|1\d\d|[1-9]?\d)){3}))|:)))(%.+)?\s*$/', $response6, $matches)){

$myip = $matches[1];

if(!empty($hosts6) && $myip != $hosts6){

$params = array(

'domain' => $domain,

'host' => $target,

'type' => 'AAAA',

'content' => $myip

);

setDNS($dns_id6, $params);

}

XSERVER は IPv4環境なので、IPv4のIPアドレスしか返さないから、KAGOYA VPSの irc.noizumi.orgに接続する。

irc.noizumi.org は当初25GBしかディスク容量が無かったので、できるだけ最少構成にすべく、PHPはインストールせずに、apache2のCGIモジュールを有効にし、CGIでpythonスクリプトにより、IPアドレスを返すようにしている。

#!/usr/bin/python3
import os
from pathlib import Path
Path("/var/www/html/ip.txt").write_text(os.environ.get("REMOTE_ADDR"), encoding="utf-8")
print("Content-Type: text/html\n")
print("Your IP address is", os.environ.get("REMOTE_ADDR"))

#!/usr/bin/python3

import os

from pathlib import Path

Path("/var/www/html/ip.txt").write_text(os.environ.get("REMOTE_ADDR"), encoding="utf-8")

print("Content-Type: text/html\n")

print("Your IP address is", os.environ.get("REMOTE_ADDR"))

apacheのログ

183.76.182.231 - - [25/Jun/2026:11:55:03 +0900] "GET /cgi-bin/ip.py HTTP/1.1" 200 5435 "-" "-"
2405:6587:c200:7500:6c7b:5eff:feac:7a1 - - [25/Jun/2026:11:55:03 +0900] "GET /cgi-bin/ip.py HTTP/1.1" 200 5459 "-" "-"

1 2	183.76.182.231 - - [25/Jun/2026:11:55:03 +0900] "GET /cgi-bin/ip.py HTTP/1.1" 200 5435 "-" "-" 2405:6587:c200:7500:6c7b:5eff:feac:7a1 - - [25/Jun/2026:11:55:03 +0900] "GET /cgi-bin/ip.py HTTP/1.1" 200 5459 "-" "-"

ちゃんとIPv4とIPv6でアクセスできている。

皇紀2686年6月16日

3年間塩田で奴隷生活…「意思疎通できない」衝撃の内幕明らかに＝韓国 | Joongang Ilbo | 中央日報

韓国全羅南道霊光（チョンラナムド・ヨングァン）の塩田で労働者を相手に常習的な暴行と監禁を行い賃金までまともに払わない悪徳事業主と管理者が大量に拘束された。

霊光警察署は15日、暴行・監禁と勤労基準法違反などの容疑で60代の塩田事業主と現場管理従事者2人の3人を拘束し捜査中だと明らかにした。

事業主らは霊光郡にある塩田を運営しながら管理し、50～60代の労働者3人を人里離れた場所に閉じ込めて暴力を行使してきた容疑を受けている。

調査の結果、被害労働者は職業紹介所を経て塩田にやってきた後、短くて数カ月、長くて3年を超える期間にわたりこうした非人間的な労働搾取と賃金未払いに苦しめられたことが明らかになった。

<以下略>

情報源: 3年間塩田で奴隷生活…「意思疎通できない」衝撃の内幕明らかに＝韓国 | Joongang Ilbo | 中央日報

まーた塩田奴隷。

なぜこれが中々発覚しないのかと言えば、知的障害者に強制労働させていて、とりあえず飯は食わせてもらえるので、自分が酷い扱いを受けていても、公的機関に被害を訴えようとしないから。

まあ、日本の場合は、外国人技能実習制度という低賃金奴隷制度があるけど、世の中に下には下がいるって事ですな。

投稿