parser Lisp:
 ignore: '[ \t\n\r]+'
 token NUM: '[0-9]+'
 token ID: '[-+*/!@$%^&=.a-zA-Z0-9_]+'
 token STR: '"\\([^\\"]+\|\\\\.\\)*"'
 rule expr: ID -> << ('id',ID)>>
 &#124; STR -> << ('str',eval(STR))>>
 &#124; NUM -> << ('num',atoi(NUM))>>
 &#124; list -> << list>>
 rule list: "(" seq ")" -> << seq>>
 rule seq: -> << []>>
 &#124; expr seq -> << [expr] + seq>>
</div><div class="naked_ctrl">
<form action="/index.cgi/contrast" method="get" name="gate">
<p><a href="http://altstyle.alfasado.net">AltStyle</a> によって変換されたページ <a href="http://theory.stanford.edu/~amitp/yapps/lisp.g">(-&gt;オリジナル)</a>
/ <label>アドレス: <input type="text" name="naked_post_url" value="http://theory.stanford.edu/~amitp/yapps/lisp.g" size="22" /></label> <label>モード: <select name="naked_post_mode">
<option value="default">デフォルト</option>
<option value="speech">音声ブラウザ</option>
<option value="ruby">ルビ付き</option>
<option value="contrast" selected="selected">配色反転</option>
<option value="larger-text">文字拡大</option>
<option value="mobile">モバイル</option>
</select>
<input type="submit" value="表示" />
</p>
</form>
</div>