Check if list is Flattened or not in Prolog

Question

Given a list, I want to check whether the given list is flat or not using prolog.

Example:-

1. ?- is_flat([1,2,3]) should return true

2. ?- is_flat([1,f,2,r