alias prime {
  %g = $1
  while %g > 2 {
    dec %g
    %a = $1 / %g
    if (. !isin %a) return
  }
  return $iif($1 < 2,,$true)
}