printBlock :: Block -> String
printBlock (Block statements) = unlines (map printStmt statements)
printBlock :: Block -> String
printBlock (Block statements) = unlines (map printStmt statements)
printBlock (Block statements) = unlines (map printStmt statements)