Move prog-ch take inside let block.