Added test program
Free works now :D