diff --git a/src/Lib.hs b/src/Lib.hs
index 0f0dc9817964d39dbf47ae3f0d342f479509d90f..11a599af4ee611591ba6a4d6f71c001c956d2ceb 100755
--- a/src/Lib.hs
+++ b/src/Lib.hs
@@ -20,17 +20,20 @@ handler person context =
   else
     return (Left "A person's age must be positive")
 
+interest = 0.2
+
 -- recursion
 power n 1 = n
 power n m = n * (power n (m-1))
 
 -- high order function
-netcashflow income outcome = zipWith (-) income outcome
+-- netcashflow income outcome = zipWith (-) income outcome
+-- currying
+netcashflow = zipWith (-)
 
 -- recursion
 powervalue m = 1 / (power (1 + interest) m)
 
--- currying (variable nya bisa hilang)
--- factorpresentvalue ns = map powervalue ns
--- ns nya bisa dihilangkan
-factorpresentvalue = map powervalue
+-- anonymus function
+factorpresentvalue = map (\x -> powervalue x) [1..5]
+