MCSKIP MT," WITHS " ; WITHS ;
MCINS \ .
MCDEF MCFOR = OPT STEP N1 OR N1 TO ALL NL REPEAT
AS ""MCSET \A1. = \A2.
MCSET T3 = 1
MCGO L1 IF T1 EN 4
MCSET T3 = \A3.
MCGO L1 IF T3 GR 0
\L2.MCGO L0 IF \AT1-1. GR \A1.
\AT1.MCSET \A1. = \A1. + T3
MCGO L2
\L1.MCGO L0 IF \A1. GR \AT1-1.
\AT1.MCSET \A1. = \A1. + T3
MCGO L1
;;
MCDEF @ WITHS { AS <p>
MCDEF @ WITHS } AS </p>
MCDEF @ WITHS AUDELM NL
AS ""MCDEF FILE AS \A1.
<div class="player"><audio preload="none">
<source src="/audio/FILE" type="audio/mpeg">
<p>Sad! Your browser does not support the <code>audio</code> element.<br>
But you can download the file FILE <a href="/audio/FILE">here</a>.</p>
</audio></div>;;
MCSET P10 = 0
MCDEF @ WITHS aud WITHS { N1 } AS ""MCSET P10 = P10 + 1
MCDEFG AU\P10. AS \A1.
@AUDELM AU\P10.
;;
MCDEF @ WITHS AUDIOS AS ""MCFOR P1 = 1 TO P10
@AUDELM AU\P1.
REPEAT;;
MCDEF @ WITHS url WITHS [ N1 ] WITHS { N2 } AS ""<a target="new" href="\A2.">\A1.</a>;;
MCDEF @ WITH META AS ""<meta charset="utf-8">
  <link rel="stylesheet" href="/css/style.css">
  <link rel="icon" type="image/png" href="/favicon.png">;;
MCDEF @ WITH PLAYER AS ""<link rel="stylesheet" href="/css/green-audio-player.css">
  <script src="/js/green-audio-player.js"></script>
  <script>
    document.addEventListener('DOMContentLoaded', function() {
        GreenAudioPlayer.init({
            selector: '.player',
            stopOthersOnPlay: true
        });});
  </script>;;
MCDEF BEGNEWS WITHS NL N1 SPLIT WITHS NL N2 SPLIT WITHS NL N3 ENDNEWS AS ""MCDEFG @ WITHS NEWS AS \A1.
MCDEFG @ WITHS ONEWS AS \A2.
MCDEFG @ WITHS ENEWS AS \A3.
;;
MCDEF @ WITHS FOOTER AS ""<footer>
  <p><b>The SDF Public Access UNIX System</b></p>
  <p><code>ml1</code> and GNU Emacs are used to build this site.</p>
  <p>&copy;2019-2023 LdBeth</p>
  <p><a rel="license" href="http://creativecommons.org/licenses/by/3.0/us/">
    <img alt="Creative Commons License" style="border-width:0"
	 src="https://i.creativecommons.org/l/by/3.0/us/88x31.png"></a>
  <br>
  This work is licensed under a <a rel="license"
   href="http://creativecommons.org/licenses/by/3.0/us/">Creative Commons
  Attribution 3.0 United States License</a>.</p></footer>;;
MCSKIP DT, < WITH pre < WITH / WITH pre WITH >
MCDEF @ WITH HEADER AS ""<header><h1>[ LdBeth's Homepage ]</h1>
  <nav>
  <del>SDF-CN</del>
  <a href="https://sdfcn.org">SDFCN</a>
  <a href="https://emacs-china.org">Emacs China</a>
  <a href="https://github.com/LdBeth">GitHub</a>
  <a rel="me" href="https://mastodon.sdf.org/@ldbeth">Mastodon</a>
  &nbsp;
  <a rel="alternate" type="application/rss+xml" href="https://ldbeth.sdf.org/rss.xml">RSS</a><br>
  <a href="/articles/">Articles</a>
  <a href="/audio/">aNONradio</a>
  <a href="/aplfont.html">3270 Font</a>
  <a href="/lsml/">LsML</a>
  <a href="/cltl2.html">CLtL2</a>
  <a href="/">News</a></nav></header>
  <hr>;;
BEGNEWS
@{Advent of Code 2023 @url[answers]{aplcomp/aoc2023.zip}.@}
@{SBR on Sept 16th.@}
@aud{sbrsept16th.mp3}
@{2023 APL Competition @url[answer]{aplcomp/pot.html}. Phase 2 only.@}
@aud{sbrjun10th.mp3}
@{SBR on June 10th.@}
@aud{sbrjun10th.mp3}
SPLIT
@{Another test on piano lib.@}
@aud{vanille.mp3}
@{Test out new piano lib.@}
@aud{light.mp3}
@{This time I put the both two parts from SBR of Jan 28th,
because I like both of them.@}
@aud{sbrjan28a.mp3}
@aud{sbrjan28b.mp3}
@{SDF-CN dead.@}
@{An RSS feed has been added for this site.@}
@{Another audio proof.@}
@aud{audioproof2.mp3}
@{A proof of concept did for first @url[NEC]{audio/index.html}.@}
@aud{audioproof.mp3}
@{SBR of Dec 3rd, went old method.@}
@aud{sbrdec3rd.mp3}
@{SBR of Nov 19th.@}
@aud{sbrnov19th.mp3}
@{Eternal Embrace, Gumi feat.@}
@aud{eem.mp3}
@{SBR of Nov 5th.@}
@aud{sbrnov5th.mp3}
@{Largo al factotum, feat. Megurine Luka.@}
@aud{factotum.mp3}
@{SBR of Oct 22nd.@}
@aud{sbroct22nd.mp3}
@{SBR of Oct 8th.@}
@aud{sbroct8th.mp3}
@{Again, good o'd physical modeling through CLM.@}
@aud{yokanpiano.mp3}
@{The <code>ml1</code> @url[macro]{mcs.html} I wrote to build the website.@}
@{Dyalog APL competition 2022 solutions:
@url[Phase 1]{aplcomp/2022/phase1.html} and
@url[Phase 2]{aplcomp/2022/phase2.html}.
Notice that I did this during the beta test, so the problem set
could be out of order. My phase 1 submission did win a prize lol.@}
@{@url[Blackjack]{blackjack.txt} for CASIO fx-9860GII SD.@}
@{God Knows... feat. Kagamine Rin.@}
@aud{gk.mp3}
@{Yokan feat. Megurine Luka.@}
@aud{yokan.mp3}
SPLIT
@{SDF-CN has been reset, well.@}
@{Working on @url[LaTeX src of AMOP]{The_Art_of_the_Metaobject_Protocol.pdf}.@}
@{Working on a proof of concept TECO editor in <del>Common Lisp. Now in Haskell.
Probably will be in Scheme.</del><ins>Maybe just port to Plan9.</ins>@}
@{A implementation of plot lib demonstrated in the book <i>Common LISP Modules</i>
by Mark Watson is @url[here]{mig.pdf}.@}
@aud{ee.mp3}
@{This music it generated by @url[CLM]{https://ccrma.stanford.edu/software/clm/},
a Common Lisp MUSIC V implementation, according to @url[this sheet]{sheet.jpg}.@}
ENDNEWS