1%p=p
n%p=div n(gcd n$p^9)%(p+1)
main=mapM putStrLn[[1,n%2..n]>>["_/"," "]<*[2..n%2]>>=id|n<-[1..100]]