#include<stdio.h>
#include<unistd.h>
#include<stdlib.h>
int main()
{
	int result;
	if(-1==(result=gethostid()))
	{ 
		printf("gethostid err\n");
		exit(0);
	}
	printf("hosid is :%d\n",result);
	
	return 0;
}

(defvar x 234)
(write x) 

(format t "Hello JSRUN     - from lisp") 

(setq x 10)
(setq y 34.567)
(setq ch nil)
(setq n 123.78)
(setq bg 11.0e+4)
(setq r 124/2)
(print x)
(print y)
(print n)
(print ch)
(print bg)
(print r) 

(write (+ 2 3))