benjmin-r

6g of beans per 100ml water (ex. 500ml water for 30g beans)

1. Pour double the amount of water as you have beans (60g water in case of 30g beans)
2. Wait ~30s (maybe longer if your beans are not super fresh) ... also called blooming
3. Pour more water until you've reached 50% of the target amount of water (250g in case you have 30g/500ml beans/water)
4. Wait until all water has drained from the filter
5. Pour more water until you've reached ~75% of the target amount of water (400g in case you have 30g/500ml beans/water)
6. Wait until all water has drained from the filter
7. Pour more water until you've reached 100% of the target amount of water (500g in case you have 30g/500ml beans/water)
8. Wait until all water has drained from the filter

qsstdin.hs

main :: IO ()
main = do
  putStrLn "Please enter a sequence of numbers to be sorted"
  putStrLn "Press ENTER twice to start sorting"
  nums <- getnums
  nums_s <- return $ sort nums
  putStrLn $ "Well, the sorted list is " ++ show nums_s
  return ()

sort :: (Ord a) => [a] -> [a]