.runstdin 0 1 index 4 mul 2 sub -1 0{0 2 index 3 mul 1 sub 2 index 3 mul 5
index 3 mul 3 sub min min 4 index 3 mul add -1 0{3 index 6 mul 1 add 3 index 6
mul 3 add min gt{( )}{(\\__/  )1 index 3 index 3 mul add 6 mod 1
getinterval}ifelse print 1 add}for def/ = 1 add}for