factor/extra/webapps/pastebin/modes.furnace

<% USING: furnace xmode.catalog sequences kernel html.elements assocs io sorting continuations ; %>

<select name="mode">
    <% modes keys natural-sort [
        <option dup "mode" session-var = [ "true" =selected ] when option> write </option>
    ] each %>
</select>