alias factor {
  if (- !isin $2) {
    remove factor.txt
    var %x = 1
    var %y = 0
    var %limit $calc($remove($1,x) * $remove($3,x))
    while (%x <= %limit) && (%y <= %limit) {
      inc %y 1
      $iif(%y isnum %limit,inc %x 1)
      $iif(%y isnum %limi,set %y 1)
      $iif($calc(%y + %x) == $2,write factor.txt %y + %x could be a possible factor)
    }
  }
  elseif (- isin $2-) {
    remove factor.txt
    var %x = 1
    var %y = 0
    var %limit $calc($remove($1,x) * $remove($3,x))
    while (%x => %limit) && (%y <= %limit) {
      inc %y 1
      $iif(%y isnum %limit,set %x $calc(%x - 1))
      $iif(%y isnum %limit,set %y 1)
      $iif($calc(%y + %x) == $2,write factor.txt %y + %x could be a possible factor)
    }
  }   
  $iif($exists(factor.txt),run factor.txt,echo -a no solution)
}