Working sicxe program. Needs further improvement