|| and by gods word, it will come to pass.
|| Cpt. Nemo of the unsinkable sea monster
||not being in need anymore.
join s (a:b)
= a++s++join s b, if b~=[]
= a, otherwise
join s [] = ""
pack i (a:l) = i++a++pack i l
pack i [] = i
teJ t er m = concat ["if(",t,")throw ",er,"(\"",m,"\");"]
pJ a b = concat ["function(",join ","a,"){",b,"}"]
dJ a b c = concat ["(function(",join ","a,"){",b,"})(",join ","c,");"]
fJ ne n m i s = concat ["for(var ",ne,"=",n,";;",ne,"+=",i,"){if(",m,")break;",s,"}"]
wJ m s = concat ["while(1){if(",m,")break;",s,"}"]
nJ n i = concat ["if(!",n,")",n,"=",i,";"]
main :: num->num->[char]
main x y =
script ["\n",title,"\n",style," \n
\n\n"]
where
script b = "\n \n" ++ concat b ++ " "
title = " ??? "
style = concat [""]
c2 = "#b85050" ||RGB(186,80,80)
c1 = "#420f0f" ||RGB(66,15,15)
c0 = "#2c0a0a" ||RGB(44,10,10)
customs =
concat
["// es sieht so aus, als wurdest du im Nachtreffen sein; aber du bist gefangen.\n"
,"/**----\n0 1 2 3\n4 5 6 7\n0+0/4 0+1/4 0+2/4 0+3/4\n1+0/4 1+1/4 1+2/4 1+3/4\n----\n0 2 4 6\n1 3 5 7\n0*2+0 1*2+0 2*2+0 3*2+0\n0*2+1 1*2+1 2*2+1 3*2+1\n----**/"
,"/*",pack "010" ["a","b"],"*/\n"
,"Draw=",pJ[]"",";\n"
,"// aye, nun denn die hoffnungslosigkeit."]