威廉·莎士比亚先生写了戏剧。很多戏剧。在这个包含他的每一份作品的tarball中，他的每一部戏都是一个长文件。
需要将其拆分为场景以进行舞台制作。由于参与者不耐烦，因此您的代码需要尽可能短。
任务：
您的任务是编写一个程序或函数，以将该文件中包含的播放拆分为多个单独的文件，并从依次编号1，其中每个包含一个场景。您应该保留所有空格和标题。
输入：
输入将通过播放stdin，或将文件名作为参数。你可以选择。该剧将如下所示：
TITUS ANDRONICUS
DRAMATIS PERSONAE
SATURNINUS son to the late Emperor of Rome, and afterwards
declared Emperor.
BASSIANUS brother to Saturninus; in love with Lavinia.
TITUS ANDRONICUS a noble Roman, general against the Goths.
MARCUS ANDRONICUS tribune of the people, and brother to Titus.
LUCIUS |
|
QUINTUS |
| sons to Titus Andronicus.
MARTIUS |
|
MUTIUS |
Young LUCIUS a boy,
[...]
ACT I
SCENE I Rome. Before the Capitol.
[The Tomb of the ANDRONICI appearing; the Tribunes
and Senators aloft. Enter, below, from one side,
SATURNINUS and his Followers; and, from the other
side, BASSIANUS and his Followers; with drum and colours]
SATURNINUS Noble patricians
[...]
ACT I
SCENE II A forest near Rome. Horns and cry of hounds heard.
[Enter TITUS ANDRONICUS, with Hunters, &c., MARCUS,
LUCIUS, QUINTUS, and MARTIUS]
TITUS ANDRONICUS The hunt is up, the morn is bright and grey,
The fields are
[...]
ACT II
SCENE I Rome. Before the Palace.
[Enter AARON]
AARON Now climbeth Tamora
[...]输出：
输出应如下所示：
ACT I
场景I罗马。在国会大厦之前。
[ANDRONICI的坟墓现身；论坛报
和参议员高高在上。在下面从一侧输入，
SATURNINUS及其追随者；并且，从另一个
方面，BASSIANUS及其追随者；鼓和颜色]
SATURNINUS贵族贵族...
ACT I
场景II罗马附近的一片森林。听到了号角和猎犬的叫声。
[与Hunters，＆c。，MARCUS一起输入TITUS ANDRONICUS，
LUCIUS，QUINTUS和MARTIUS]
TITUS ANDRONICUS狩猎结束了，早晨是明亮的灰色，
领域是...
ACT II
场景I罗马。在宫殿之前。
[输入AARON]
亚伦现在爬上塔莫拉...
等等
stdout用您选择的分隔符输出到编号文件或流（返回函数）中。
奖金：
- 10％如果将Act 1之前的位保存到file中
0。注：如果Act 1之前的位为空，则不得中断。 - 15％如果可以同时使用
stdin和输入文件路径参数 - 20％如果可以同时输出到文件和
stdout/返回。 如果可以制作最小的SPL程序，则可获得200声望。此赏金已授予。
排行榜
这是一个堆栈片段，用于按语言生成常规排行榜和获胜者概述。
为了确保您的答案显示出来，请使用以下Markdown模板以标题开头。
# Language Name, N bytes
N您提交的文件大小在哪里。如果您提高了分数，可以将旧分数保留在标题中，方法是将它们打掉。例如：
# Ruby, <s>104</s> <s>101</s> 96 bytes
如果您想在标头中包含多个数字（例如，因为您的分数是两个文件的总和，或者您想单独列出解释器标志罚分），请确保实际分数是标头中的最后一个数字：
# Perl, 43 + 2 (-p flag) = 45 bytes
您还可以将语言名称设置为链接，然后该链接将显示在页首横幅代码段中：
# [><>](http://esolangs.org/wiki/Fish), 121 bytes
body{text-align:left!important}#answer-list,#language-list{padding:10px;width:290px;float:left}table thead{font-weight:700}table td{padding:5px}<script src="https://ajax.googleapis.com/ajax/libs/jquery/2.1.1/jquery.min.js"></script> <link rel="stylesheet" type="text/css" href="//cdn.sstatic.net/codegolf/all.css?v=83c949450c8b"> <div id="answer-list"> <h2>Leaderboard</h2> <table class="answer-list"> <thead> <tr><td></td><td>Author</td><td>Language</td><td>Size</td></tr></thead> <tbody id="answers"> </tbody> </table> </div><div id="language-list"> <h2>Winners by Language</h2> <table class="language-list"> <thead> <tr><td>Language</td><td>User</td><td>Score</td></tr></thead> <tbody id="languages"> </tbody> </table> </div><table style="display: none"> <tbody id="answer-template"> <tr><td>{{PLACE}}</td><td>{{NAME}}</td><td>{{LANGUAGE}}</td><td>{{SIZE}}</td><td><a href="{{LINK}}">Link</a></td></tr></tbody> </table> <table style="display: none"> <tbody id="language-template"> <tr><td>{{LANGUAGE}}</td><td>{{NAME}}</td><td>{{SIZE}}</td><td><a href="{{LINK}}">Link</a></td></tr></tbody> </table><script>var QUESTION_ID=68997,OVERRIDE_USER=43394;function answersUrl(e){return"https://api.stackexchange.com/2.2/questions/"+QUESTION_ID+"/answers?page="+e+"&pagesize=100&order=desc&sort=creation&site=codegolf&filter="+ANSWER_FILTER}function commentUrl(e,s){return"https://api.stackexchange.com/2.2/answers/"+s.join(";")+"/comments?page="+e+"&pagesize=100&order=desc&sort=creation&site=codegolf&filter="+COMMENT_FILTER}function getAnswers(){jQuery.ajax({url:answersUrl(answer_page++),method:"get",dataType:"jsonp",crossDomain:!0,success:function(e){answers.push.apply(answers,e.items),answers_hash=[],answer_ids=[],e.items.forEach(function(e){e.comments=[];var s=+e.share_link.match(/\d+/);answer_ids.push(s),answers_hash[s]=e}),e.has_more||(more_answers=!1),comment_page=1,getComments()}})}function getComments(){jQuery.ajax({url:commentUrl(comment_page++,answer_ids),method:"get",dataType:"jsonp",crossDomain:!0,success:function(e){e.items.forEach(function(e){e.owner.user_id===OVERRIDE_USER&&answers_hash[e.post_id].comments.push(e)}),e.has_more?getComments():more_answers?getAnswers():process()}})}function getAuthorName(e){return e.owner.display_name}function process(){var e=[];answers.forEach(function(s){var r=s.body;s.comments.forEach(function(e){OVERRIDE_REG.test(e.body)&&(r="<h1>"+e.body.replace(OVERRIDE_REG,"")+"</h1>")});var a=r.match(SCORE_REG);a&&e.push({user:getAuthorName(s),size:+a[2],language:a[1],link:s.share_link})}),e.sort(function(e,s){var r=e.size,a=s.size;return r-a});var s={},r=1,a=null,n=1;e.forEach(function(e){e.size!=a&&(n=r),a=e.size,++r;var t=jQuery("#answer-template").html();t=t.replace("{{PLACE}}",n+".").replace("{{NAME}}",e.user).replace("{{LANGUAGE}}",e.language).replace("{{SIZE}}",e.size).replace("{{LINK}}",e.link),t=jQuery(t),jQuery("#answers").append(t);var o=e.language;/<a/.test(o)&&(o=jQuery(o).text()),s[o]=s[o]||{lang:e.language,user:e.user,size:e.size,link:e.link}});var t=[];for(var o in s)s.hasOwnProperty(o)&&t.push(s[o]);t.sort(function(e,s){return e.lang>s.lang?1:e.lang<s.lang?-1:0});for(var c=0;c<t.length;++c){var i=jQuery("#language-template").html(),o=t[c];i=i.replace("{{LANGUAGE}}",o.lang).replace("{{NAME}}",o.user).replace("{{SIZE}}",o.size).replace("{{LINK}}",o.link),i=jQuery(i),jQuery("#languages").append(i)}}var ANSWER_FILTER="!t)IWYnsLAZle2tQ3KqrVveCRJfxcRLe",COMMENT_FILTER="!)Q2B_A2kjfAiU78X(md6BoYk",answers=[],answers_hash,answer_ids,answer_page=1,more_answers=!0,comment_page;getAnswers();var SCORE_REG=/<h\d>\s*([^\n,]*[^\s,]),.*?([\d\.]+)(?=[^\n\d<>]*(?:<(?:s>[^\n<>]*<\/s>|[^\n<>]+>)[^\n\d<>]*)*<\/h\d>)/,OVERRIDE_REG=/^Override\s*header:\s*/i;</script>
16
对于第一份有效的莎士比亚编程语言论文，我将给予+200的悬赏。
—
2016年
来吧，每个人都知道CodeGolf并不快。为什么不说“压缩包已经很满了，所以您的代码应该尽可能短”？
—
J_F_B_M 2016年
@trichoplax产品。我以为那是每个人的做法！在笔记本中
—
划掉
@cat-保持打开状态；我敢肯定，莎士比亚的解决方案比我的解决方案小。我的胖子就像一只大的大猫和一只猫的总和一样胖。
—
罗伯特·弗雷泽