let evalFuncDef' name parameters typeDef expr =
    let rec buildFuncClasses remParams prevParams =
        match remParams with
        | nextParam::[] ->
            let(paramName, _, _) = nextParam
            [FunctionClass(name, paramName, nextParam, prevParams, expr)]
        | nextParam::rest ->
            let classes = buildFuncClasses rest nextParam::prevParams
            let (name, _, _, _, _) =  List.head classes
            let instrs = []
            let stepClassName = "something"
            let(paramName, _, _) = nextParam
            FunctionClass(stepClassName, paramName, nextParam, prevParams, instrs)::classes
     buildFuncClasses parameters List.empty