let R=String.replicatelet t n=let rec L i r k=if i<n then L(i+1)(R(k+i%2+1)" "+R((n-i)*2)"_"+"\n"+R k" "+R(i%2)"o"+"/,"+R(n*2-i*2-2)"_"+",\\"+R(1-i%2)"o"+"\n"+r)(k+i%2*2)else r in L 0""0 printfn "%s" <| t 5
Standard input is empty
__ /,,\o ____ o/,__,\ ______ /,____,\o ________ o/,______,\ __________ /,________,\o
The brand new service which powers Ideone!
Widget for compiling and running the source code in a web browser!