sub p{
  $b=ReadKey -1;
  $![1]%3==0&&x(split$=,$![6]);
  z(split$=,$![4]);
  x(split$=,$![5]);
  c(split$=,$![7]);
  $![1]++;
  select (@-,@-,@-,0.05);
  ($![2]=$_)=~s/$=/ /g;
  /pW|Wq/&&h('Game over');
  $_!~/p|q/&&h('You saved our planet. Yeah');
  print $![3],$![2];
  &p
}