convert the code to scheme

Example of 'even number from 0-10 using while loop' program even; var a:integer; begin writeln('even numbers from 0 to 10 ); a:=2; while as=10 do begin writeln('=',a); a:=a+2; end; end. Output