コピペでMathematicaに貼り付けたらできちゃうように
コマンドを作ってもらってもいいでしょうか…