Факторизация на HomeLisp

(defun p (n)
(setq i 2);;объявление переменной
 
 (do (
        ;; задание нач. значений и форм приращений, пусто
     )
     (
       (<= i (sqr n));;условие остановки цикла
     )
           
       (if (= 0 (remainder(%) n i))  ;; Истино - если не Nil
             (= n n/i)(printline n) (prints "* ")     ;; если да, то выводим n
             (+ i 1)    ;; если нет, то плюсуем и заново
       )    
  )
)

// factorialization.cpp : Defines the entry point for the console application.
//
#include "stdafx.h"
#include <stdio.h>
#include <math.h>
#include <conio.h>

int _tmain(int argc, _TCHAR* argv[])
{
    double n, i;
    scanf_s("%lf", &n);
    i = 2;
    while (i <= (sqrt(n)))
    if ((int)n % (int)i == 0) {
        printf_s("%.0lf*", i);
        n = n / i;
    }
    else
        i = i + 1;
    printf_s("%.0lf", n);
    _getch();
    return 0;
    
}

(defun p (n)
     
      (setq i 2)
      
 (loop (if(<= i (sqr n)) 
             (if (zerop(remainder n i)) ((= n n/i)(print n)(prints "* ")) (add1 i))   
             (return 'ok))
 )
)