/* moo.tc - tct - 6/8,9,10,11/15 */
/* Ref: http://primepuzzle.com/tc/moo.html */

int n

pr [
 /* prompt for response to printed guess and get encoded */
 /* Bullette / Cowlette counts */
 pl "1=3B, 2=3C, 3=1B1C, 4=2B, 5=2C, 6=1B2C"
 pl "?"
 n=gn
 ]

done [
 pl "Done!";exit
 ]

moo [

 pn 123
 pr
 if n==1 done

 else if n==2 [ /* 3C */
 /* 4 is not in it. Must be a rotation of 123 */
  pn 231
  pr
  if n==1 done
  else [pn 312;done]
  ]

 else if n==3 [ /* 1B1C */
 /* 4 is in it. */
  pn 134
  pr
  if n==1 done
  else if n==3 [ /* 1B1C */
   pn 142
   pr
   if n==1 done
   else [pn 324;done]
   ]
  else if n==5 [ /* 2C */
   pn 421
   pr
   if n==1 done
   else [pn 243;done]
   ]
  else /* 3C */
   [pn 413;done]
  ]

 else if n==4 [ /* 2B */
  /* 4 is in it. */
  pn 423
  pr
  if n==1 done
  else [
   pn 143
   pr
   if n==1 done
   else [pn 124;done]
   ]
  ]

 else if n==5 [ /* 2C */
  /* 4 is in it. */
  pn 431
  pr
  if n==1 done
  else if n==2 /* 3C */
   [pn 314;done]
  else if n==6 /* 1B2C */
   [pn 341;done]
  else if n==3 [ /* 1B1C */
   pn 241
   pr
   if n==1 done
   else [pn 412;done]
   ]
  else if n==4 /* 2B */
   [pn 432;done]
  else [ /* 2C */
   pn 342
   pr
   if n==1 done
   else if n==2 [pn 234;done] /* 3C */
   else [pn 214;done] /* 1C */
   ]
  ]

 else if n==6 [ /* 1B2C */
  /* 4 is not in it. */
  pn 213
  pr
  if n==1 done
  else [
   pn 321
   pr
   if n==1 done
   else [pn 132;done]
   ]
  ]
 ]