take' ::(Num i, Ord i) => i -> [a] -> [a]
take' n x = reverse' (take'' n x [])
  where take'' n _ r
          | n <= 0 = r
        take'' _ [] r = r
        take'' n (x:xs) r =  take'' (n - 1) xs (x:r)

reverse' :: [a] -> [a]
reverse' x = reverse'' x []
  where reverse'' [] r = r
        reverse'' (x:xs) r = reverse'' xs (x:r)