dec2bin :: Int -> IO()
dec2bin zahl
  | zahl > 0 = do dec2bin ( zahl `div` 2 )
                  putStrLn ( show ( zahl `mod` 2 ))
  | otherwise = return ()