-- http://c...content-available-to-author-only...e.com/questions/50521/ascii-art-of-the-day-2-flow-snakes
import Control.Applicative -- not needed in GHC 7.10
t[a,b]=[3*a+b,2*b-a]
_#[0,0]=0
0#_=3
n#p=[352,6497,2466,-1]!!((n-1)#t[(s+3)?7|s<-p])?(4^p!!0%7)%4
0&_=0
n!b=n&[1,-b]
f n
=putStr$unlines
[["__ \\/ "!!(2*n#t
[a
?2,-b
]+a
%2
)|a
<-[b
-n
!2+1..b
+n
!2+0^n
?3]]|b
<-[-n
!0..n
!0]]
LS0gaHR0cDovL2MuLi5jb250ZW50LWF2YWlsYWJsZS10by1hdXRob3Itb25seS4uLmUuY29tL3F1ZXN0aW9ucy81MDUyMS9hc2NpaS1hcnQtb2YtdGhlLWRheS0yLWZsb3ctc25ha2VzCgppbXBvcnQgQ29udHJvbC5BcHBsaWNhdGl2ZSAgLS0gbm90IG5lZWRlZCBpbiBHSEMgNy4xMAoKKD8pPWRpdgooJSk9bW9kCnRbYSxiXT1bMyphK2IsMipiLWFdCl8jWzAsMF09MAowI189MwpuI3A9WzM1Miw2NDk3LDI0NjYsLTFdISEoKG4tMSkjdFsocyszKT83fHM8LXBdKT8oNF5wISEwJTcpJTQKMCZfPTAKbiZwPShuLTEpJnQgcCttYXhpbXVtKGFiczwkPnN1bSBwOnApCm4hYj1uJlsxLC1iXQpmIG49cHV0U3RyJHVubGluZXNbWyJfXyBcXC8gICAiISEoMipuI3RbYT8yLC1iXSthJTIpfGE8LVtiLW4hMisxLi5iK24hMiswXm4/M11dfGI8LVstbiEwLi5uITBdXQoKbWFpbj1nZXRMaW5lPj49Zi5yZWFk