Commented part removed
Function to monadise let rec