ok
added pascal accepted solution