val _ = Web.Conn.setMimeType("text/html")
val print = Web.Conn.write
val _ = Web.Conn.write " "
local open Msp infix &&
fun iter f n = if n = 0 then $""
else iter f (n-1) && f n
fun col r c =
$"| "
&& $(Int.toString (r * c))
&& $" | "
fun row sz r = $"" && iter (col r) sz && $"
"
in
fun tab sz = iter (row sz) sz
end
val _ = Web.Conn.write "\n\
\ \n\
\ \n\
\ \n\
\ Multiplication Table
\n\
\ "
val _ = Web.Conn.write (Msp.flatten ( tab 10 ))
val _ = Web.Conn.write "
\n\
\
Served by SMLserver\n\
\ \n\
\ \n\
\ "