Перевести с Python на Haskell алгоритм Форда Фалкерсона

redfu :: Integer->[[[Integer]]]->Integer
redfu s= [[[s,s,s]]]
redfu x=x
--red_1 s= if s/=end then red_2 x end


set_graph :: Integer->Integer
set_graph x = if x==(-1) then redfu a v else redfu a v where a=10
                                                             v=[[[0,0,1], [20,0,1], [30,0,1], [10,0,1], [0,0,1]],[[20,0,-1], [0,0,1], [40,0,1], [0,0,1], [30,0,1]],[[30,0,-1], [40,0,-1], [0,0,1], [10,0,1], [20,0,1]],[[10,0,-1], [0,0,1], [10,0,-1], [0,0,1], [20,0,1]],[[0,0,1], [30,0,-1], [20,0,-1], [20,0,-1], [0,0,1]]]
                                                             n = length v
                                                             init1 = 0
                                                             ut2=init1
                                                             end = 4
                                                             s3 = [unity(end,-1)(init1)]

В целом, получается, но не могу никак передать тройной список в функцию. Что я делаю не так? Вот что пока сделано. В идеале я хотел бы вывести все аргументы, что в блоке where в функции redfu. Как я могу выполнить это?