mcseed {
  var %n 1
  while (%n <= 20) {
    %s = %s $+ $r(0,9)
    inc %n
  }
  say $iif($r(1,2) == 1,$+(-,$right(%s,-1)),%s)
  unset %s
}