(if:$start is not 1)[(set:$length to (num:$length))(set:$start to 1)(set:$score to -1)](set:$score to $score+1)(if:$score is $length*$length)[(goto:"WIN")](set:$disp to 0)(set:$loc to (random:1,$length*$length))Score: $score(str-repeated:$length,"\n"+(str-repeated:$length,"(set:$disp to $disp+1)(if:$disp is $loc)[(link:'O')[(goto:'re')]](else:)[O]"))(input: bind $length)
(link:"enter")[(goto:"re")]YOU WON!
(link:"Restart")[(restart:)]