doWhile source
  0 -> # !
  otherwise val is $ + 1;
    $val !
    $val -> if <|?($ mod 6 matches <~|=0>)> -> # !
end doWhile

$doWhile !