One small step toward automating homework 🙂

My lecturer doesn’t accept calculations done in Mathematica code as homework. I have 30 pages of small calculations such as the one below. I don’t want to write them out by hand. Surely there is a way to automate the process using TraditionalForm[] and macro coding?

Below is a minimalist example.

Input

The function should take as an input a simple physics calculation.

e.g.

(m = Quantity[1, "Kilograms"];  a = Quantity[9.81, "Meters" ("Seconds")^-2];  F == m a;  F = m a;) 

like so:

someFunction[              (m = Quantity[1, "Kilograms"];               a = Quantity[9.81, "Meters" ("Seconds")^-2];               F == m a;               F = m a;) ] 

Output

It should calculate the calculation and format the output in TraditionalForm[] like so

tips or suggestions for good ways to approach this challenge would be greatly appreciated