enligt följande fe PROGRAM :P