How do you encode the algorithm below, which is in C++, to an abstract syntax tree (AST) in Haskell?

int main () {

int Y = 2020; int a = Y % 19; int b = Y / 100; int c = Y % 100; int d = b / 4; int e = b % 4; int f = (b + 8) / 25; int g = (b f + 1) / 3;