mk_person :: String -> String -> Int -> Person
mk_person f l a = (f `Malloc` l `Malloc` a `Malloc` Nil)
mk_person :: String -> String -> Int -> Person
mk_person f l a = (f `Malloc` l `Malloc` a `Malloc` Nil)
mk_person f l a = (f `Malloc` l `Malloc` a `Malloc` Nil)